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Preface 



This logic manual is designed to aid IBM support personnel 
in maintaining the IBM System/34 by serving as a recall 
mechanism and guide to program listings. This manual does 
not contain directions for programming or operating the 
system. 

Note: The System Support Program Product is documented 
by two manuals: this manual and IBM System/34 System 
Support Program Logic Manual: Data Communications, 
LY21-0051. 

The SSP (System Support Program Product) provides the 
programming support necessary to start the system, process 
commands, start a job, run a job, and terminate a job. Its 
functions include: 



Main storage I PL 
Command processing 
Initiator 
Allocate 
Open 

Data management 
Diskette end of volume 
Key sort 
Spool intercept 
Spool print writer 
Close 
t Termination 
System service programs 
System maintenance programs 
Overlay linkage editor 
System utility programs 



This manual describes the SSP modules by providing: 

• A system flow overview of the entire SSP. 

• An overview of each of the primary components of the 
SSP. 

• A detailed description including, as required: a descrip- 
tion of the function, a HIPO diagram, and a logic flow 
diagram for each function contained within the SSP. 

• Significant data areas, as required. For data areas not 
described in this manual, see the Data Areas Handbook. 

Note: The arrowheads ( ^ ^ ) that occasionally appear in 
the HIPO extended descriptions are provided to help you 
line up the descriptions with their respective module 
references. 

RELATED PUBLICATIONS 

This publication references the following publications: 

• IBM System/34 System Data Areas and Diagnostic 
Aids, LY21-0049 

• IBM System/34 System Support Reference Manual, 
SC21-5155 

• IBM System/34 System Support Program Logic Manual: 
Data Communications, L Y2 1-0051 

• IBM System/34 Over/ay Linkage Editor Reference 
Manual, SC2*1-7707 
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How to Use This Manual 



Diagram numbers are assigned by chapter (for example, all diagrams in chapter 1 are 
numbered 1.nn). Any diagram with a zero preceding the first period (Diagram 0.1, for 
example) is a table of contents diagram for the SSP. Similiarly, any diagram with a zero 
following the first period is a table of contents diagram for its respective chapter. Each 
entry in a table of contents diagram identifies a particular input — process — output type 
of diagram. The input — process — output diagrams describe functions and are found in 
the Method of Operation section of each chapter of this manual. 
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Functional Diagram Techniques 



The main objective of the HIPO method of diagramming is to 
improve communication procedures and techniques through 
the effective use of functional operation diagrams. 

HIPO, hierarchy plus input — process — output, is a method 
of graphically describing internal function by structuring a 
presentation from general to detailed levels in a set of 
method-of-operation diagrams. 

A visual table of contents is prepared for each set of func- 
tional diagrams. It shows: 

• The structural relationships of the diagrams 

• The contents of each of the diagrams 

• A legend applying both to the individual function dia- 
gram and the total presentation 

Each set of functional diagrams contains a visual table of 
contents, one or more overviews, and a number of low level 
diagrams showing the implementation and/or design of a 
function. The implementation of a major function can 
extend through many modules or routines. 



Module 1 




Module 2 




Module 3 


FUNC 
A 










A 


A 



Someone who must modify an existing function, add a new 
function, test for regression, or fix the system must know: 

• How the function is performed 

• What other, perhaps nonrelated, functions use the same 
code 



Graphic Content: The graphic content is determined by 
the situations shown. 

The table of content diagrams act as introductions to the 
functions and directors to the low level, detailed diagrams. 



Legend 



□ — 



Contents 



1.— -— 


6.t_-_- 


2.-7" 


7-_l- 


3-"- 


8.7---— 


4.7.1— 


9.7JZ7I 


5.rr." 


io.it:- 



3 4 6 7 9 10 



A specific module might support parts of many functions. 
Sometimes these functions are not even related. 



Module 2 



B + C 
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The low level diagrams contain unit level information (that 
level of information reflecting the actual workings of the 
system). Each low level diagram is arranged to best show: 

• A process that supports the function being described 

• Results of the process 

• Requirements for processing 
Stated graphically: 





Input 




Process 




Output 

















Informational Content: Functional diagrams should discuss 
inputs, process, and results. For the sake of clarity, these 
elements are presented in a normal reading sequence. Sim- 
ple boxes are used to block off these three major areas of 
the diagram. 

The picture area of the diagrams contains as few words as 
possible. There are two reasons for this: 

• When the picture becomes cluttered with text, it loses 
some value as a recall mechanism. 

• The degree of difficulty of maintaining the diagrams 
increases with increased number of words in the picture 
area. 

In the diagrams, functions are related by cross-references to 
the module(s) supporting those functions. The description 
box of the diagram includes the references of the module(s) 
associated with the implementation steps that support the 
function. 



To tie together the program organization and functional 
areas, the function diagrams use cross-references from one 
area to another and to the listings. 



Functional Descriptions 



Q 



\ 



/ \ 
/ \ 

/ \ 

/ 
/ 



a 



b 



Listings 



Routines 
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INPUT 




PROCESS 




OUTPUT 



DESCRIPTION 


MODULE/ 
ROUTINE 




PHAS1 


n 


■■ 


H ' 


u 


PHAS2 


H 




D 





Process steps 1 and 2 are performed, in PHAS1. 
Before step 3, passing of control is implied by the horizon- 
tal line through the routine column. Steps 3 and 4 are per- 
formed in PHAS2. 



Legend: 



Control flow (leads the 
reader through the process) 

Data flow 

Reference block 
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Introduction 



This program logic manual provides diagnostic information 
and serves as a recall mechanism for the IBM programming 
representative working on a System/34 problem. HIPO and 
control flow diagrams help guide the programming repre- 
sentative to the proper module on microfiche. If a main 
system module is not causing the problem, the directory 
in Appendix A can help locate additional information in 
this manual and on microfiche. 

Figure 0-1 is an overview of the logic documentation avail- 
able for System/34. It lists the major components of each 
PLM. 



Diagram 0.1 is an overview of the SSP. Within this over- 
view are overviews of the system service programs, the sys- 
tem maintenance programs, the overlay linkage editor, and 
the utility programs. 

Information presented in this manual, accompanied by 
information in the Data Areas Handbook, is used to inter- 
pret main storage dumps. Appropriate module listings on 
microfiche are then consulted as necessary to initiate a 
circumvention to the program problem and to write an 
APAR. The Data Areas Handbook can then be used to 
help apply the program temporary fix. 



Figure 0-2 shows the system control flow and major divi- 
sions of the SSP. Part 2 of the manual follows the same 
major divisions as shown in this diagram. 



Introduction 0-1 
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IBM System/34 System Data Areas and 














Diagnostic Aids Handbook, L Y21-0049 






• System overview 








• Data areas 








* Diagnostic aids 








• I/O controllers 








* Troubleshooting aids 








• Work station uti 


lity 




IBM System/34 System . 
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IBM System/34 System Support Program Logic 


Manual: System, LY21-0050 










Manual: Data Communications, LY21-0051' 


Component/Function Diagram 


Chapter 


Component/Function Diagram Part 


Starting the system 1.0 


1 








Binary synchronous 1 1 


Processing commands 2.0 


2 








communications 


Starting a job 3.0 


3 








MULTI-LEAVING remote 2 2 


Running a job 4.0 


4 








job entry utility 


Terminating a job 5.0 


5 








Data communications A-1 App. A 


System service 6.0 


6 








print utility 


programs 












System maintenance 7.0 


7 










programs 












Overlay linkage 8.1,8.2 


8 










editor 












System utility 9.0 


9 through 28 








programs 












IBM System/34 Util 


ities Logic Man 


jal. 




IBM System/34 RPG II Logic Manual, 




IBM System/34 Basic Assembler and 


LY21-0563 






LY21-0565 




Macro Processor Logic Manual, 
LY21-0569 


Component/Function Diagram Chapter 


Component/Function Figure Part 


Component/Function Figure Chapter 


Work station utility 1-1 


1 




Compiler phase flow 1-1 1 




Assembler 1-2 1 


Screen design aid 2-1 


2 




Object program flow 2-1 2 




Macro processor 2-2 2 


Data file utility 3-1 


3 










Source entry utility 4-1 


4 










Sort 5-1 


5 











Figure 0-1. System/34 Logic Documentation Overview 



0-2 
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Figure 0-2. System Control Flow Overview 



Introduction 0-3 
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Inquiry Menu 
Option Processor 
and Resume 
Overview 
(Diagram 2.22) 



Starting the 
System 



(Diagram 1.0) 



Perform Router 
Function 



(Diagram 2.1) 



Special 

Command 

Processor 

(Diagram 2.25) 



System 
Support 
Program 
Product 



Command 
Processor 



(Diagram 2.0) 



Starting a Job 



(Diagram 3.0) 



Running a Job 



(Diagram 4.0) 



Terminating 
a Job 



(Diagram 5.0) 



Perform Sign-on 
Function 



(Diagram 2.2) 



Command 
Processing 
Overview 

(Diagram 2.3) 



Job Initiator and 
Work Station 
Release Overview 

(Diagram 2.18) 



High-Level Aids 
and TTC Router 



(Diagram 2.21) 



CP/WSDM 
Interface 



(Diagram 2.26) 



Main Storage 
IP L Overview 



(Diagram 1.1) 



Perform Initiator 
Function 



(Diagram 3.1) 



Console Management 
Overview 



(Diagram 2.27) 



Perform Command 
Processor 
Cleanup Function 

(Diagram 2.31) 



Perform Password 

Security 

Function 

(Diagram 2.32) 



Perform System 

Configuration 

Function 

(Diagram 1.5) 



Rebuild VTOC 
Format 1's 



(Diagram 1.6) 



Allocate 
Overview 



(Diagram 3.2) 



Open Disk, Diskette, 
Printer, Workstation 
and Data Commu- 
nications DTFs 
(Diagram 3.6) 



Perform I/O 

Error 

Recovery 

(Diagram 2.33) 
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Perform Disk Data 

Management 

Function 

(Diagram 4.1) 
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Management 
Function 

(Diagram 4.2) 
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Perform Diskette 
Data Management 
Function 

(Diagram 4.3) 



Perform Diskette 
End of Volume 



(Diagram 4.4) 



Write Printer Data 



(Diagram 4.5) 



Perform Work 
Station Data 
Management 
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(Diagram 4.6) 



Sort Index Entries 
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File 

(Diagram 4.7) 
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(Diagram 5.1) 
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(Diagram 4.8) 
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From Spool File 



(Diagram 4.9) 



Terminate Job 
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as Required 

(Diagram 5.2) 
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System Service 
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System Service 
Programs Overview 

(Diagram 6.0) 
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Find Directory 
Entry 
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Library Directory 
Entry 

(Diagram 6.3) 


Retrieve Requested 
Record 

(Diagram 6.4) 


Put Record 
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(Diagram 6.5) 
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Diagram 0.1 (Part 3 of 6). Functional Overview 
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System 
Maintenance 
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(Diagram 7.4) 
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(Diagram 7.5) 
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Diagram 0.1 (Part 4 of 6). Functional Overview 
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(Diagram 8.17) 





Diagram 0.1 (Part 5 of 6). Functional Overview 



0-8 



Licensed Material-Property of IBM 





System 
Utility 
Programs 














System Utility 
Programs Overview 

(Diagram 9.0) 












































System Backup 
(Diagram 9.1) 




Basic Interchange 
(Diagram 10.1) 




Build Menu 
Display 

(Diagram 11.1) 




Rebuild 

Alternate 

Sector 

(Diagram 12.1) 




Perform Copy 
Utility Function 

(Diagram 13.0) 
























































Delete File 
(Diagram 14.1) 




Copy Diskette File 
(Diagram 15.1) 




Build File 
(Diagram 16.1) 




Display History 
File 

(Diagram 17.1) 
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(Diagram 18.1) 
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(Diagram 19.1) 
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(Diagram 20.1) 
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(Diagram 21.0) 
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(Diagram 22.1) 
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(Diagram 23.1) 
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(Diagram 24.1) 
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(Diagram 25.1 ) 
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(Diagram 26.1) 
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Chapter 1 . Starting the System 



Introduction 

The functions needed to start the system are: 

• Perform initial program load (IPL) 

• Perform system configuration 

• Rebuild IPL format 1, if needed 

MAfN STORAGE INITIAL PROGRAM LOAD (IPL) 

System/34 initial program load (IPL) consists of two parts: 
control storage IPL and main storage IPL. 

The function of control storage IPL is to initialize main and 
control storage common areas to a sufficient degree to 
allow the control storage supervisor to operate. Control 
storage IPL first loads control storage and performs a basic 
system checkout of the processing unit and I/O functions. 
It then loads the control storage nucleus. After loading 
the work station and printer control programs, control 
storage IPL loads main storage IPL phase 1 (#MSNIP) 
and the first two sectors of the configuration record into 
the main storage transient area and passes control to 
#MSNIP. 

Main storage IPL completes initialization of the System 
Support Program Product (SSP). Main Storage IPL con- 
sists of three phases: main storage IPL phase 1 (#MSNIP), 
phase 2 (#MSTWA), and phase 3 (#MSIPL). (See Figure 
1-1 for main storage IPL logic flow.) 

#MSNIP performs initial main storage IPL processing. 
Its main functions are: 

• Initialize the system communication area 

• Build the resident library format 1 

• Determine defective main storage locations 

• Initialize the transient/transfer control table 

• Resolve disk addresses as needed (load and execute 
#MAXRF) 



• Set the command processor task control block (TCB) 
to reflect any defective 2K main storage blocks 

• Increase assign/free area size to allow for main storage 
allocation 

#MSNIP passes control to #MSTWA. 

#MSTWA performs phase 2 main storage IPL processing. 
Its main functions are: 

• Initialize the transfer control table for resident routines 

• Initialize the task work area index 

• Initialize the terminal unit blocks 

© Initialize the task work area for each work station 

• Build the device allocate table 

• Initialize command reject file data areas 

Before it passes control to #MSIPL, #MSTWA updates the 
instruction address register (IAR) in the request block (RB) 
stack to pass control to the command processor resident 
router (#CPML) when IPL is completed. 

#MSIPL controls final main storage IPL processing. The 
main storage IPL phase 3 function uses additional main 
storage IPL modules. They are: process overrides 
(#MSRID), process overrides (#MSOER), spool file IPL 
(#MSSP), input job queue IPL (#MSJQ), and main storage 
allocate (#MSSQS). The primary functions of main storage 
IPL phase 3 are: 

• Perform main storage IPL sign-on 

• Process override information if OVERRIDE-YES is 
entered on the IPL sign-on display (#MSRID f #MSOER) 

• Initialize the system print spool function if print spool is 
supported (#MSSP) 
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© Initialize the job queue if job queue is supported 
(#MSJQ) 

© Build the assign/free area (#MSSQS) 

© Build the user main storage area (#MSSQS) 

© Enable all system terminals 

#MSIPL then calls the supervisor task attach transient 
(#SVAT) to attach a TCB to run file rebuild (#MSBLD). 
Control eventually passes to #CPML. 

SYSTEM CONFIGURATION ($CNFIG) 

System configuration is performed when the system is 
initially installed or any time a system or feature change 
requires reconfiguration. The configuration information is 
saved in the configuration records. (See the Data Areas 
Handbook for a description of the configuration records.) 
The system user may override certain configuration options 
at IPL (see #MSIPL) or alter the configuration of each work 
station by using $SETCF. 

System configuration is initiated with the CNFIGSSP 
command following the initial RELOAD of the base system 
support program to disk. (See IBM System/34 Program 
Product Installation and Modification Reference Manual, 
SC21-7689, for more information about the CNFIGSSP 
procedure.) 

CNFIGSSP loads and runs the system configuration pro- 
gram ($CNFIG). The main functions performed by 
$CNFIGare: 

© Read, modify, and write system configuration records. 

© Set values/parameters in the configuration records based 
on operator responses to configuration prompts. 

© Validate the operator's input values and ensure system 
operation. 

© Set UPSI switches to control CNFIGSSP procedure flow. 



$CNFIG validates the operator's responses to prompts and 
updates the appropriate configuration record after each 
configuration display is presented. After all operator 
responses are processed, $CNFIG returns the updated 
configuration records to disk and passes control to the 
end-of-job transient ($EOJ). 



REBUILD VTOC FORMAT 1'S 

The rebuild VTOC format 1's routine (#MSBLD) examines 
each format 1 in the disk VTOC to ensure that the pointers 
accurately reflect the status of the data set contents. The 
routine also checks the format 5 to ensure that disk reor- 
ganization ($PACK or $FREE) was not previously 
interrupted. 

#MSBLD is called by main storage IPL phase 3 (#MSIPL). 
The system operator may request that #MSBLD not be run. 
If run, the system operator directs #MSBLD to perform one 
of the following: 

© Delete all files in error 

© Examine old files, as well as new 

© Prompt on each file in error for retention or deletion 
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Method of Operation 

This section contains functional diagrams for routines 
needed to start the system. They are: 

• Main storage IPL 

• System configuration 

• Rebuild VTOC format 1 
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■ INPUT 



From: Control Storage IPL 

m PROCESS 




Required system 
areas 

Configuration 
records 

Format 1 



I I 



I 

,^* Perform main storage IPL (Diagram 1.1) 



f 



OUTPUT 



I I 



^^* Perform system configuration 
(Diagram 1.5) 



^^« Rebuild VTOC format 1 (Diagram 1.6) 



y^ Initial program 
■ load completed 

— — v-^ Configuration 
I records 

^^> Format 1 




To: Command Processor 



Diagram 1 .0. Overview of Starting the System 



INPUT 



From: Control Storage IPL 

pi PROCESS 



Configuration 
record 

System library 
directory 

Required system 
areas 

User options 




> 



• Perform main storage IPL phase 1 
processing (Diagram 1.2) 

• Perform main storage IPL phase 2 
processing (Diagram 1.3) 

• Perform main storage IPL phase 3 
processing (Diagram 1.4) 



t> 




OUTPUT 



Initial program 
load completed 



To: Command Processor 



Diagram 1 .1 . Overview of Main Storage IPL 
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INPUT 



From: Control Storage IPL 

B p PROCESS 



c 



XR2 

Configuration record 

Main Storage 



Fixed Nucleus 



Transient Area: 

#MSNIP 
Configuration 
record 



User Area 



System library 
directory 



C> 



■M Initialize system communication area 

Q Build resident library format 1 

gjj Determine bad main storage locations 

Q Initialize transient/transfer control table 

Q Resolve disk addresses as needed 

Qj Set command processor TCB to reflect 
any bad 2K storage blocks 

Q Increase assign/free size to allow for main 
storage allocation 



r 



OUTPUT ■ 



^ 




SCA 

Library format 1 

Transient table 

Command 
processor TCB 

Temporary assign/ 
free area 



To: Main Storage IPL Phase 2 
#MSTWA (Diagram 1.3) 



DESCRIPTION 



MODULE/ 
ROUTINE 



nitialize system communication area (SCA) from configuration record information: 
Task work area (TWA) address. 
TWA size. 

Disk VTOC address. 
Disk VTOC size. 

Diskette VTOC work area disk address. 
Diskette VTOC work area size. 
Configuration record start address. 
History file start address. 
History file size. 
Release and modification level. 
Control storage configuration size. 
DUMP indicator. 
System configuration bytes. 
Communications configuration from UDT. 

Resolve current history file pointer: 

Scan history file looking for file ID (X'FE') as start of history file sector. 

If history file current pointer found, put disk address in SCA (SCAHFCUR). 

If history file current pointer not found, set history file error flag in SCA (SCAHFERR). 



Read system VTOC, first sector, to get library format 1 . 
Move library format 1 to nucleus. 
Save spool buffer size. 



# MSN IP 



Disk IOS 



#MSNIP 



Disk IOS 



#MSNIP 



Disk IOS 



#MSNIP 



Disk IOS 



#MSNIP 
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DESCRIPTION 



MODULE/ 
ROUTINE 



gj Count number of bad 2K blocks of main storage. 

Assign save area for bad 2K block numbers. 

Move bad 2K blocks to save area. 
Q| Move dump SVC address into transient/transfer control table for each table entry. 

Read in block (one track) of library directory sectors. 

Look for name table entry in library directory. 

If name table entry found: 

• Place SSN in transient table if necessary. 

• Place SS in SCA (message member) if necessary. 

• Build loader parameter list if necessary. 

If name table entry not found: 

• Determine whether it is required by SSP. 

• If required, call dump main storage transient task (9 control storage function) to abend system (MIC 249). 

Q Resolve disk addresses by executing cross reference resolver. 

3 Determine whether any bad 2K storage blocks exist (SCA2KBAD). 

Find task control block (TCB) address translate registers (ATRs). 

Flag bad ATRs. 

Set good ATR numbers in TCB. 
Q Allocate temporary assign/free space for duration of main storage IPL. 

Load and pass control to IPL phase 2 (#MSTWA). 



#MSNIP 



Disk IOS 



#MSNIP 



#MAXRF 



#MSNIP 
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INPUT 



From: Main Storage IPL Phase 1 
-#MSNIP (Diagram 1.2) 

PROCESS 



c 



Load table 
Main Storage 



Transient Area: 

#MSTWA 
Configuration 
record 



User Area 



Transient table 

SCA 

UDT 




r. 



^> 



Initialize transfer control table for 
resident routines 

Initialize task work area index 

Initialize terminal unit blocks 

Initialize task work area 

Build device allocate table 

Initialize command reject file data areas 



:> 




OUTPUT 



Transfer control 
table 

TWA 

System TUBs 

Device allocate 
table 



To: Main Storage IPL Phase 3 
-# MSI PL (Diagram 1.4) 



DESCRIPTION 



MODULE/ 
ROUTINE 



Scan load table built during directory scan by #MSNIP. 

Load resident routines: 

• Calculate next load address. 

• If request indicator byte (RIB) given, put its address in transfer control table. 

• Call main storage relocating loader (control storage function) to load the resident routine. 

Find space for command processor work area. 

Build command processor image matrix and order index. 

Reset task work area index to all available work space. 

Reset task work area (first track) to binary zeros. 

Find space for temporary work station queue (to be used during IPL). 

Allocate space from TWA for command reject file. 

If no space available for work station queues, call dump main storage/terminate task routine (control storage 
function) to eliminate IPL procedure. 



#MSTWA 



Disk IOS 



#MSTWA 



Diagram 1.3 (Part 1 of 2). Perform Main Storage IPL Phase 2 Processing 
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DESCRIPTION 



MODULE/ 
ROUTINE 



Read terminal information blocks into work area. 

Initialize terminal unit blocks (TUB) based on system configuration record information: 

• Set work station ID. 

• Initialize common TUB fields. 

• Set system printer TUB address in SCA. 

• Set task work area address. 

Allocate work space in task work area. 

Write work station configuration record to disk. 

Initialize local area of task work area. 

Build entries for diskette from unit definition table (UDT) information. 

Build communication entries from communication configuration record information. 

Initialize command reject file data areas. 

Build and queue error recovery blocks (ERB) for disk and diskette. 

Load and pass control to main storage IPL phase 3 (#MSIPL). 



Disk IOS 



#MSTWA 



Disk IOS 



#MSTWA 
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INPUT 



From: Main Storage I PL Phase 2 
-#MSTWA (Diagram 1.3) 

■i PROCESS 



Main Storage 



Transient Area: 
#MSIPL 
#MSRID 
#MSOER 
#MSSP 
#MSJQ 
#MSSQS 



User Area 




c> 



SCA 

TUBs 

TCBs 

User options 



Perform main storage IPL sign-on 
Process override information if necessary 
Initialize system print spool function 
Complete nucleus initialization 



OUTPUT 



S> 




Initial sign-on 

Structured user 
area 

Spool file and 
buffer pool 

Initialized main 
storage nucleus 



To: Command Processor Resident Router 
-#CPML (Diagram 2.1) 



Diagram 1.4 (Part 1 of 6). Perform Main Storage IPL Phase 3 Processing 



DESCRIPTION 


MODULE/ 
ROUTINE 


MB Post task control block (TCB) for request-enter sign-on. 


#MSIPL 


Search terminal unit block (TUB) chain for system and alternate consoles. 




Check system console for errors. 




If no system console errors, simulate REQ-ENT request. 




Wait for console input. 

If request-enter is from console, process REQ-ENT request. 

If request-enter is not from console: 

• Build assign accept/input parameter list. 

• Accept input from console. 

• If alternate console, enable request-enter and call request enter transient (#CPTC). 

• If master console, call sign-on transient (#CPON) to process sign-on information. 

• Prompt for file rebuild options. 




#CPTC 


#MSIPL 


#WDDA 


#MSIPL 


#MSRID 


Check for override request-entered at sign-on. 

ES Build override format index: 

• Read override format index from disk. 

• Build in-core format index. 




#MSRID 


Disk IOS 


#MSRID 
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DESCRIPTION 


MODULE/ 
ROUTINE 


Prompt for general system parameters: 

• Issue invite to display unit. 

^ • Build output work station data management parameter list. 

• Prompt for: 

— Date. 

— Single program mode. 

— Console status. 

— Command language. 

• Build input work station data management parameter list. 

• Issue call to work station I/O to accept input. 

• Set appropriate system communication area (SCA) indicators for answers to general system prompts. 

Prompt for work station data management options (transient or resident). 

Call transient #MSOER to prompt for job queue and spool parameters. 

Ensure that job queue is configured before issuing prompt for job queue parameters. 

Build output parameter list for work station data management to prompt for: 

• Job queue size. 

• Job queue reformat. 

• Job queue start . 

Display prompts. 

Build work station data management parameter list to accept answers to prompts. 

Issue call to work station I/O for accept-input. 

Check job queue size. 

Set appropriate SCA indicators for answers to job queue prompts. 

Display prompt for: 

• Cancel spool? 

• Cancel job queue? 

• Delete spool file? 

• Delete job queue? 

Build parameter list to accept answer to prompt. 
Issue call to work station I/O for accept-input. 
If cancel spool — yes, return to #MSRI D 

If cancel spool — no: 

• Build work station data management parameter list to prompt for: 

— Resident spool writer . 

— Spool writer priority. 

— Intercept buffer size. 

— Spool writer buffer size. 

• Display prompts. 

• Build input parameter list. 

^ • Issue call to work station I/O for accept-input. 

• Ensure legitimate answers to prompts and set appropriate system indicators. 

• Build work station data management parameter list to prompt for print spooling disk parameters: 

— Spool file size. 

— Reformat spool file at IPL. 

— Disk A or disk B reference. 


#WDDA 


#MSRID 


#DWDM 


#MSRID 


#WDDA 


#MSRID 


#MSOER 


#DWDM 


#MSOER 


#DWDM 


#MSOER 


#DWDM 


#MSOER 


#DWDM 


#MSOER 


#DWDM 


#MSOER 


#DWDM 


#MSOER 
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DESCRIPTION 



MODULE/ 
ROUTINE 



* Issue a call to work station I/O to display prompts. 

* Build an input parameter list. 

* Issue a call to work station I/O for accept-input. 

* Ensure legitimate answers to prompts and set appropriate system indicators. 

Return to#MSRID 

Build a work station data management parameter list to prompt for performance parameters: 

* Work station queue space size. 

* Assign/free request size . 

* Trace buffer size. 

Issue call to work station I/O to issue prompts. 

Build input parameter list. 

Issue call to work station I/O for accept-input. 

Ensure legitimate answers to prompts and that enough main storage space exists. 

Set appropriate system indicators for prompt answers. 

Return control to #MSIPL. 

Build second TUB for command processor. 

Log control storage processor errors. 

Put system date in configuration record: 

• Read configuration record from disk. 
► * Update configuration record. 

• Write configuration record back to disk. 

Change command language for command processor to native/English if necessary: 

• Find command processor router routine — #CPRT (command processor load module). 

• #CPRT contains commands to be changed. Start control address of #CPRT indicates start of command 
table. Each entry is 14 bytes long. 

• Retrieve commands from the message member (##MSG2). 

• Update commands as required. 

|CJ Ensure that spool is on system (SCAMSPOL) and job queue is on system (SCAMJOBQ). 
Calculate size of spool buffer pool. 
Assign spool buffer pool space. 
Save pool size and writer buffer size. 

Set up spool intercept function: 

• Find spool intercept routine (#SPINT). 

• Assign space to load #SPINT. 

• Load #SPINT using main storage relocating loader — SVC 52 (control storage function). 

Q Call main storage allocate transient (#MSSQS) to resolve main storage areas. 

Assign storage for work station queue space: 

• Free work station queue space assigned for IPL sign-on. 

• Assign work station queue space for system operation. 

Build system queue space (control storage microcode function). 



#DWDM 



#MSRID 



#DWDM 



#MSOER 



#MSRID 



#DWDM 



#MSRID 



#DWDM 



#MSRID 



#MSIPL 



Disk IOS 



#MSIPL 



Disk IOS 



#MSIPL 



#MASFN 



#MSIPL 



#MSSQS 
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DESCRIPTION 


MODULE/ 
ROUTINE 


Build user main storage area: 


#MSSQS 


• Use last FQE accessed to find first 2K block of user main storage following assign/free area. 




• Chain user main storage 2K blocks together, excluding any bad 2K blocks. 




• Clear 2K blocks to binary zeros as blocks are added to chain. 




• Check for the following conditions: 




- Any bad 2K main storage blocks (SCA2KBAD) . 




— Insufficient region size (SCADRGSZ) . 




— Maximum nucleus size exceeded . 




• Build error message parameter list, including error message identification code (MIC). 

• Issue error message. 

Return control to #MSIPL. 
Put up sign-on display screen: 




#CMCU 


#MSSQS 


#CPOIM 


• Set IPL sign on code (CPCODE). 




• Display sign on screen. 

Clean up any outstanding invites on other terminals: 




#MSIPL 


• Examine TUBs. 




• If work station TUB, enable system request. 




• If console, signed on console and issue invite. 

• Stop outstanding invites. 

Get JCB space (JCB will be used to attach file rebuild (#MSBLD)). 




#CPTC 


#MSIPL 


Build attach parameter list. 




Indicate file rebuild called (SCAMBLD). 




Indicate IPL sign-on complete (SCAMIPL). 




Call attach transient (#SVAT) to attach #MSBLD. 




Perform command processor resident functions (#CPML) until #MSBLD is finished. 




Call spool file IPL (#MSSP) to allocate and format spool file and spool buffer pool. 
If spool not supported (SCADSSPR), go toQ^V 




#MSSP 


If delete or cancel request (SCADSSPR): 

• Read VTOC to find file to delete. 
^ • Build file specification block (FSB). 

• Delete file. 

• Set flag to 00 (SCADSSPR). 

• GotoQQ. 




#CSVF 


#CAS1 « 


#CAD1 


#MSSP 


Check for existing #SPOOL1 file: 




• Build disk VTOC read/write parameter list. 

• Read disk VTOC. 




#CSVF 


If #SPOOL1 file found: 

• Read #SPOOL1 master index from disk. 

• If no entries on print queue or request to delete file (SCAMCRAN): 

— Read VTOC to find file to delete. 

— Build file specification block (FSB). 

— Delete file. 




#DWDM 


#MSSP 


#CSVF 


#CAS1 


#CAD1 
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DESCRIPTION 



MODULE/ 
ROUTINE 



Allocate primary print spool file: 

© Set up special allocate DTF to allocate space for size given in IPLWKSIZ. 

• Allocate file space. 

• If file space not available, decrease file size by six blocks and attempt to allocate. If minimum size (12 blocks) 
is not available, issue message, SPOOL NOT SUPPORTED THIS IPL,and gotoQ^^. 

Format print spool file: 

• Calculate maximum file size. 
© Calculate size of each extent. 

• Calculate index size. 

• Set up fields to indicate number of index entries needed for primary file and extents. 

• Format master index and chain index entries together. 

• Write index entries out to print spool file. 

• Write master index out to first sector of primary spool file. 

Set address of #SPOOL1 in SYSCOM. 

Update master index: 

© Find extents (#SPOOL2-6). 

• Find highest spool jobname. 

• Update master index with new information. 

© Write master index back to primary spool file. 

Format buffer pool by calculating number of intercept buffers. 

Look for job-in-process or active bits on in spool queue and set off if found. 

Call input job queue IPL routine (#MSJQ) to format input job queue. 

If job queue not supported (SCADSSJQ), return to #MSIPL. 

If delete or cancel request (SCADSSJQ): 
© Build file specification block (FSB). 

• Deallocate existing #JOBQ file. 

• Return to #MSIPL. 

Check for existing #JOBQ file: 

© Build VTOC read/write parameter list. 

O Read disk VTOC. 

If #JOBQ found: 

© Read first sector of #JOBQ file to check for data. 

• If no data exists or reformat request: 

- Build FSB. 

- Deallocate JOBQ file. 

Allocate #JOBQ file: 

© Build DTF with #JOBQ file information. 

© Allocate #JOBQ file. 

If not enough space available for # JOBQ file requested: 
© Decrease file size by 2 blocks and attempt to allocate. 

© If minimum size (4 blocks) is not available, issue message, INPUT JOBS NOT SUPPORTED THIS IPL, and 
return to #MSIPL. 



#MSSP 
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#CMCU 



#MSSP 



Disk IOS 



#MSSP 



#CSVF 



#SPQMG 



#MSSP 



Disk IOS 



#MSSP 



#SPQMG 



#MSSP 



#MSJQ 



#CAS1 



#CAD1 
#MSJQ 



#CSVF 



#MSJQ 



Disk IOS 



#MSJQ 



#CAS1 



#CAD1 



#MSJQ 
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DESCRIPTION 



MODULE/ 
ROUTINE 



Format JOBQ file entries: 

• Set up IOB with attributes for #JOBQ file. 

• Write formatted sectors to disk. 

Update SCA with #JOBQ file address. 

Return to#MSIPL. 

If stop system command, call #CPTC to 
set I PL processing complete (SCAMIPLC). 

Pass control to #CPML. 



#MSJQ 



Disk IOS 



#MSJQ 



#MSIPL 



#CPTC 



#MSIPL 
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INPUT 



From: CNFIGSCP Procedure 

■i PROCESS 



Main Storage 



Transient Area 



User Area: 
$CNFIG 



Configuration 
records 

User-entered 
parameters 

SCA 

JCB 




i> 



Perform preliminary processing 
Process configuration menu 
Process attachment parameters 
Process general system parameters 
Process additional system parameters 
Process general print parameters 
Process spool parameters 
Process performance parameters 
Process program additions parameters 
Perform final processing 



m OUTPUT 



> 



Configuration 
records 

JCB 

UPSI 






To: Control Storage 
End of Job ($EOJ) 



DESCRIPTION 



MODULE/ 
ROUTINE 



I Prepare disk IOB to read configuration records from disk. 

Perform read operation. 

Open work station data management (WSDM) DTF. 
^J Issue PUT to display configuration menu (display 1 ). 

Display configuration menu. 

Issue GET to accept operator replies. 
► Retrieve operator response: 

If option 1 (perform system configuration), set off display only switch (CNDSP). 

If option 2 (perform limited configuration with reset), set off display only switch and go to^Jj. 

If option 3 (perform limited configuration without reset), set off display only switch and go to JJ 

If option 4 (perform attachments change only), set off display only switch and go to Q. 

If option 5 (only display configuration parameters), set on display only switch. 

If response was not option 1 through 5, prepare operator prompt (?) and return to|Jto redisplay 
configuration menu. 



$CNFIG 



Disk IOS 



#DMOP 



$CNFIG 



#DWDM 



$CNFIG 



#DWDM 



$CNFIG 
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MODULE/ 


DESCRIPTION 


ROUTINE 


Q Prepare attachment parameters display (display 2). 


$CNFIG 


^% Issue PUT to output display 2. 

Display attachment parameters screen consisting of: 




#DWDM 


• Unit address. 




• Device type . 




• Logical ID. 




• Attribute. 




• Default PRT. 

Prepare WSDM to retrieve operator replies. 

Retrieve operator replies from screen. 




$CNFIG 


#DWDM 


If display only request (CNDSP), go toQ| . 
Validate operator replies: 




$CNFIG 


• Confirm unit addresses and device types. 




• Check logical ID format. 




• Check for duplicate ID. 




• Check attribute format. 




• Check attribute. 




• Check default printer logical ID format. 




• Check default printer assignment. 




If errors detected, prepare operator error message and return to{£]Cj9. 




Modify configuration record based on operator replies: 




• Set logical IDs. 




• Set WS/PRT attributes. 




* Set default printer logical IDs. 




Q Prepare general system parameters display (display 3). 




^% Prepare WSDM DTF to output display 3. 
Display configuration defaults consisting of: 




#DWDM 


• Date format . 




• . Single program mode? 




• Work station status after IPL. 




• Command language. 

Prepare WSDM DTF to retrieve operator replies. 

Retrieve operator replies from screen. 

If display only request (CNDSP), go to Qj. 




$CNFIG 


#DWDM 


SCNFIG 


Validate operator replies: 




• Single program mode — Y or N. 




• Console mode after IPL — A or B. 




• Command language — A or B. 




• Date format . 




If errors detected, prepare operator error message and return to^JCSto redisplay with error message. 




Modify configuration record based on operator replies. 
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DESCRIPTION 


MODULE/ 
ROUTINE 


£•] Prepare additional general system parameters display (display 4). 
^% Prepare WSDM DTF to output display 4. 

Display configuration defaults consisting of: 

• Password security feature? 

— Security officer ID. 

— Security officer password. 

— Security file size (1 to 14 blocks) . 

a. lfPSF = No: 

1. Put zero in configuration record as file size. 

2. Delete security file if one exists. 

b. If JOBQ = No, set zero in configuration record as job queue size. 

• Job queue support? 

— Job queue size (20 to 120 jobs) . 

Prepare WSDM DTF to retrieve operator replies. 
Retrieve operator replies from screen. 
If display only request (CNDSP), go to In- 
validate operator replies: 

• If job queue yes, verify job queue size. 

• If password security yes: 

— Verify security file size. 

► — AMocate security file if size on. 

— Set officer ID in profile record. 

— Set officer password. 

— Write profile record to disk. 

If errors detected, prepare operator error message and return toC»KJIto redisplay with error message. 

Modify configuration record based on operator replies: 

• Set job queue size. 

• Set security file size. 

£J Prepare general print parameters display (display 5). 
^M Prepare WSDM DTF to output display 5. 

Display configuration defaults consisting of: 

• Standard forms ID. 

• Lines per page (1 to 112). 

• Print belt image. 

• Print spooling? (Y,N). 

Prepare WSDM DTF to retrieve operator responses. 

Retrieve operator replies from screen. 

If display only request (CNDSP), go to^fl. 

Validate operator replies: 

• Lines per page — 1 to 112. 

• Print belt image - A, B, C, D, or E. 

• Spool -Y or N. 

If errors detected, prepare operator error message and return to£]EjAto redisplay with error message. 


$CNFIG 


#DWDM 


SCNFIG 


#DWDM 


SCNFIG 


#CAS1 < 


$CNFIG 


Disk IOS 


SCNFIG 


#DWDM 


$CNFIG 


#DWDM 


$CNFIG 



Diagram 1.5 (Part 3 of 5). Perform System Configuration Processing ($CNFIG) 



Method of Operation 1-17 



Licensed Material— Property of IBM 



DESCRIPTION 



MODULE/ 
ROUTINE 



Modify configuration record based on operator replies: 

• Set lines/page value in hexadecimal. 

• Set print belt image in configuration record: 

— Use system find to locate source library get (#MASYL). 

— Use main storage relocating loader (SVC 52) to load #MASYL. 

— Retrieve requested print belt member. 

— Convert to hexadecimal if necessary. 

— Move image into configuration record. 

• Check spool yes or no: 

— If yes, set on spool indicator. 

— If no, clear spool parameters in configuration record and go to | 

If spool not specified (CNSPFLAG) go to^J. 
Prepare spool parameters display (display 6). 

Prepare WSDM DTF to output display 6. 

Display configuration defaults consisting of: 

• Resident spool writer (Y,N). 

• Spool writer priority (Y,N). 

• Autowriter (Y,N). 

• Spool intercept buffer size (1 to 8-1 /2K). 

• Spool file size (12 to 192 blocks). 

• Spool writer buffer size (1 to4-1/2K). 

Prepare WSDM DTF to retrive operator replies. 

Retrieve operator replies from screen. 

If display only request (CNDSP), go to Q. 

Validate operator replies: 

• Resident spool writer — Y or N. 

• Spool writer priority — Y or N . 

• Autowriter — Y or N. 

• Spool intercept buffer size — 1 to 8 1/2 K segments. 

• Spool file size - 12 to 192 blocks. 

• Spool writer buffer size — 1 to 4 1/2 K segments. 



$CNFIG 



#MASYL 
$CNFIG 



#DWDM 



$CNFIG 



#DWDM 



$CNFIG 



If errors detected, prepare operator error message and return toQ^3to redisplay with error message. 

Modify configuration record based on operator replies: 

• Set spool writer priority — yes or no. 

• Set autowriter — yes or no. 

• S$t spool intercept buffer size: 

— Convert segments to sectors (2 sectors per 1/2 K segment). 

— Put size in configuration record. 

• Set spool file size: 

— Convert blocks to hexadecimal. 

— Put size in configuration record. 

• Set writer buffer size: Convert segments to sectors (2 sectors per 1/2K segment). 

(U Prepare performance display (display 7). 
^% Prepare WSDM DTF to output display 7. 

Display configuration defaults consisting of: 

• Display data management mode; A — transient, B — resident. 

• Display station buffer size (6 to 16 1/2 K). 

• System assign/free size (6 to 64 1 1I K). 



#DWDM 
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DESCRIPTION 



MODULE/ 
ROUTINE 



Prepare WSDM DTF to retrieve operator replies. 

Retrieve operator replies from screen. 

If display only request (CNDSP) go toQ|. 

Validate operator replies: 

• Display data management mode. 

• Display station buffer size — to 16 1/2 K segments. 

• System assign/free size — 6 to 64 1/2 K segments. 

If errors detected, prepare operator error message and return to |£jCj9 redisplay with error message. 

Modify configuration record based on operator replies: 

• Display data management mode. 

• Work station buffer size: 

— Convert to 1/4 K blocks. 

— Convert to hexadecimal. 

— Set size in configuration record. 

• System assign/free size: 

— Convert value to 1 /4 K blocks. 

— Convert value to hexadecimal. 

— Set converted 1/4 K blocks value in configuration record. 

|£j Prepare program additions display — display 8. 
^% Prepare WSDM DTF to output display 8. 

Display configuration defaults consisting of: 

• MRJE support? (Y,N). 

• BSC support? (Y.N). 

• OLE support (Y,N). 

Prepare WSDM DTF to retrieve operator replies. 

Retrieve operator replies from screen. 

If display only request (CNDSP), go to^J^^. 

Validate operator replies (all replies must be Y or N). 

If errors detected, prepare operator error message and return to£|K9to redisplay with error message. 

Modify configuration record based on operator replies (set flags for Y or N). 

Move program addition flags to UPSI switch buffer (UPSI switches will be tested to direct the CNFIGSSP 
procedure). 

^3 If display only (CNDSP), zero UPSI switch buffer. 

Use information retrieval transient to set UPSI switches in job control block (JCB). 
|0 If display only request (CNDSP), go toQ^ 

Set on configuration complete flag (CONMCFGS). 

Write modified configuration records to disk. 
A Close WSDM DTF. 

Pass control to end of job transient ($EOJ). 
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INPUT p 



From: Main Storage IPL Phase 3 
(#MSIPL) Process 

n PROCESS 



Main Storage 



Fixed Nucleus 



Transient Area 



User Area: 
#MSBLD 
#MSBFL 
#MSBGL 



VTOC format 1 's 
format 5 




m OUTPUT 



t>\ 



|| Check if disk reorganization was 
previously aborted 

| Get user file specifications and #MSBLD 
options requested 

gj Read first (next) sector 

El Process VTOC format 1 's 

QJ Check for last sector 

[2 Sort file keys 

£3 Search format 1's to ensure that they 
have appropriate latest date indicator 

CI Collect unused disk space 



> 




Rebuilt: 

VTOC format 1 's 

format 5 



To: Control Storage End-of-Job ($EOJ) 



DESCRIPTION 



MODULE/ 
ROUTINE 



Read Format 5. If disk reorganization ($FREE) was interrupted, complete it. 

Get range of user file addresses. 

Get operator responses. 

Read first (next) sector in the user VTOC. 

Address format 1 entry: ^^ ^^ 

• If this entry is unused, go to EJi ffffl ■ ^^ 

• If the file is not new and the operator does not want the format 1 processed, go to(Jj ^9- 

• If the file is sequential or indexed, ensure that the record number reflects the number of records in the file. 

• If the file is indexed and the number of records was altered, reconstruct the index from the data records. 

Clear the format 1 if the user requests that the file in error be deleted and if any of the following error 
conditions exist: 

• latest date indicator is invalid. 

• disk reorganization utility ($FREE) could not successfully move this file. 

• record length exceeds 4096 bytes. 

• retention is other than temporary or permanent. 

• type is other than sequential, direct, or indexed . 



#MSBLD 
$FREE 



#MSBLD 



Disk IOS 



#MSBLD 
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DESCRIPTION 



MODULE/ 
ROUTINE 



• file is indexed and key position and/or key length are invalid . 

• file is indexed and the number of keys is not equal to the number or records. 

• file extents are not commensurate with the user disk space or with each other. 

^^ If there is another format 1 entry in the current sector, go toQ. 

[Q Rewrite the sector into the VTOC. If there are more sectors in the VTOC, go toQ- 

[J Load Keysort (#DDKAA). 

R9 Read first (next) sector in user VTOC. 

G& Address format 1 entry: If the sort/merge bits are on, call #DDKAA to sort the keys. 

If there is another format 1 in the sector, go tojijljl. 

Rewrite the sector into the VTOC. 

If there are more sectors in the VTOC, go toJjjKj^. 
Wm Read first (next) sector in VTOC. 

KjB Address first (next) format 1 : ^^ 

• If this entry is unused or if a file with this same label has been processed, go to^£KA. 

• If other files in this sector have the same label, scan until all entries have been compared with the current entry 

• Scan the remaining sectors of the VTOC for a file with the same label as the current entry. For each file 
with the same label, scan until all entries have been compared with the current entry. 

• If the current format 1 has a later date, set the latest date indicator in the format 1 ; otherwise, set binary zeros. 

• If this is not the last entry in the current sector, go toQ^^. 

Rewrite the sector into the VTOC. 
If there are more sectors in the VTOC, go toQ|. 
| Read the format 5. 

Indicate that $FREE should recover all free disk space. 

Rewrite the format 5. 

Call disk reorganization ($FREE) which passes control to the end-of-job transient ($EOJ). 
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Program Organization 

Figures 1-1 through 1-3 show the control flow required to 
start the system. 
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Figure 1-1. Main Storage IPL Control Flow 
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Chapter 2. Processing Commands 



Introduction 

The functions needed to process commands are: 

• Router 

• Sign-on 

• Process control commands 

• Job initiation and work station release 

• High-level aids and task-to- task communications router 

• Inquiry menu option processor and resume 

• Special command processor 

• Command processor/work station data management 
interface 

• Console management 

• Cleanup 

• Password security 

• I/O errpr recovery 

COMMAND PROCESSOR 

The command processor provides an operator interface for 
display station and system operators to direct the System/ 
34 SSP in performing the operator's tasks. 

The command processor provides control over an operator's 
work session with the System/34 SSP by: 

• Controlling the format of the display screen displays 
when the display station is not in use by an application 
program. 

• Providing an interface for operators to carry on a 
dialogue with the System/34 SSP in order to submit 
procedures and OCL statements for execution. 



• Providing operator commands that are immediate com- 
mands not requiring the initiator function for execution. 

• Providing error messages and prompts to help the opera- 
tor conduct a work session and log related information 
to the system history file. 

Figure 2-1 shows the functions provided by the command 
processor. 



Router 

The command processor router function waits for events to 
occur and routes control to the proper command processor 
transient module to process the event. 

Events that cause the router to gain control are: 

• Invite op-end — an operator has pressed a command key 
or entered a command or OCL statement. 

• Attn post — an operator has requested the inquiry func- 
tion by pressing the Attn key. 

• Sys req post — an operator has pressed the System 
Request and Enter/Rec Adv keys to get a sign-on dis- 
play or to change interfaces at the system console. 

• Task-to-task communications post. 



Sign on 

Before beginning a work session, the operator must perform 
a sign-on procedure. The sign-on procedure either initial- 
izes a display station for entering commands and OCL, or 
initializes the display station for acquisition by a user pro- 
gram (standby mode). Only display stations in standby 
mode can be acquired by user programs. In addition, the 
sign-on procedure is used to validate the operator as an 
authorized user (password security). 
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Description: 



The router determines which event to process and passes control to the appropriate command processor 
function. 

The sign-on function establishes the interface between the display station operator and the System/34 SSP. 

The command function includes control commands for the display station and system operator, spool, and input 
JOBQ. 

The job initiation and display station release function provides for the initiation and termination of the scheduler. 

The high level aids and task-to-task communications router function performs the system request, attention, and 
help functions along with other task-to-task communications functions. 

The inquiry menu option processor and resume function provide the operator the capability to interrupt a 
currently executing program, initiate a new request, and later resume the interrupted program. 

The special command processor function provides command key processing and other miscellaneous functions. 

The command processor/work station data management function provides a common module to display several 
system formats. 

The console management function provides user and system tasks a method of writing a message to a display 
station (or to the system console) and receiving a reply. 

The cleanup function outputs error detected by the command processor, controls the format of the screen, and 
outputs session history. 

The I/O error recovery function allows I/O devices to issue error messages to the system console and attempts 
recovery from certain I/O errors. 



Figure 2-1. Command Processor Functions 
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The command processor provides a Sign on display to the 
operator to aid in the sign-on procedure. The Sign-on 
display appears at a display station, following IPL, when 
the operator presses the System Request key followed by 
the Enter/Rec Adv key, or whenever an operator signals 
the end of a work session with the OFF command. All 
operators including the system operator must perform 
the sign-on procedure. 



Figure 2-2 is a summary of control commands. It provides 
a brief description of each command function, indicates 
the processing modules used, and shows the diagram 
number. 

Refer to the System Support Reference Manual, and IBM 
System/34 System Operator's Guide, SC21 -51 58 for com- 
mand formats and operating procedures. 



To perform the sign-on procedure, the operator must fill 
in the necessary fields defined on the Sign-on display and 
press the Enter/Rec Adv key. 



Process Control Commands 

The control commands provide an interface between the 
display station and system operator and the System/34 
system support program (SSP). Control commands are 
immediate commands that do not require scheduler func- 
tions for execution. 

Control commands are provided in two categories, display 
station control commands and system console control com- 
mands. Some commands, however, can be used at both the 
display station and system console. 

The following chart indicates which control commands can 
be used at the display station, system console, or both. 



Command 
Name 



ASSIGN- 
CANCEL- 
CHANGE- 



CONSOLE- 

HOLD 

IDELETE- 

JOBQ 

MENU 

MODE 

MSG 

OFF 

PRTY 

RELEASE 
REPLY — 
RESTART- 
START — 
STATUS - 

STOP 

TIME 

VARY 



Display Station 
Command 



System Console 
Command 



X 



X 



X 



Job Initiation and Work Station Release 

The job initiation and work station release function receives 
control from the resident router (#CPML) when the opera- 
tor enters a procedure or an OCL statement while the dis- 
play station is in command mode. The job start function is 
responsible for: 

• Starting the initiator (#CIML) to process the operator 
entered procedure or OCL statement. 

• Attaching a work station to an active multiple requester 
terminal (MRT) task. 

The release function receives control from the command 
processor resident router (#CPML) when work station data 
management posts the command processor to perform a 
release. The release function is responsible for: 

• Reestablishing the command interface at end-of-job for 
a command work station. 

• Reestablishing the standby interface at step or job end 
for a data work station. 

° Attaching the initiator to process the next job step when 
a requester is released from a MRT task or a released 
program task. 



High- Level Aids and Task- to- Task Communications Router 

The keys that invoke high-level aids are: the Attn key, the 
Sys Req key and Enter key, and the Help key (when in 
operator error mode). The command processor receives 
control whenever one of these keys is pressed. 
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Command Function 

ASSIGN Used by the system operator to temporarily exchange the IDs of two display 

stations or two printer, or to temporarily assign a printer as the system 
printer. 

CANCEL Used by the system operator to cancel any of the following: 

• A specified job on the input job queue 

• All jobs on the input job queue 

• A specified job on the spool file 

• All jobs on the spool file 

• A currently executing job 

Used by the display station operator to cancel a job on the input job queue. 

CHANGE Used by the system operator to change the following: 

• The position of a job on the input job queue or the spool file 

• The number of copies to be printed for a job on the spool file 

• The forms number to be used for the job on the spool file 

CONSOLE Used by the system operator to cause an alternative console to become the 
system console. 

HOLD Used by the system operator to temporarily prevent a specified job or all 

jobs on the spool file from being printed. 

I DELETE Used by the system operator to specify whether informational messages 
directed to the system console from a procedure should be automatically 
responded to. 

Used by the display station operator to specify whether informational 
messages directed to the display station from procedures are to be 
displayed. 

JOBQ Used by the display station operator to place a job on the input job queue. 

MENU Used by the display station operator to activate the menu function and to 

display the specified menu. 

MODE Used by the display station operator to change from command mode to 

standby mode or from standby mode to command mode. 

MSG Used by the system operator to send a message to all display stations or to 

a selected display station or display station operator. 

Used by the display station operator to send a message to the system console 
or to a selected display station operator; or, when entered with no parameters, 
to display any messages pending at the display station. 

OFF Used by the display station operator to terminate a display station session. 

Figure 2-2 (Part 1 of 3). Control Command Summary 
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Command Function 

PRTY Used by the system operator to change the dispatching priority of a cur- 

rently executing job. 

Used by the display station operator to assign a priority to the next job run 
from the display station or the next job placed on the input job queue. 

RELEASE Used by the system operator to release for printing either the entire spool 

file, a job on the spool file, or all jobs on the spool file that were individually 
held or that were placed on the spool file with PRIORITY-0. 

REPLY Used by the system operator to do one of the following: 

• Respond to all informational messages on the display screen 

• Compress the display so that only messages still needing a response are 
displayed 

• Respond to an individual message 

RESTART Used by the system operator to restart the printing of a job from the spool 
file. 



START Used by the system operator to do one of the following: 

• Start the printing of jobs from the spool file 

• Allow the initiation of jobs from all display stations or from a specified 
display station 

• Start the running of jobs from the input job queue 

• Resume the system activity that was stopped by a STOP SYSTEM 
control command 

• Resume the execution of a job, or all jobs, that were stopped by a STOP 
JOB control command 

STATUS Used by the system operator to display any of the following: 

• The entries on the spool file 

• The status of jobs running on the system 

• Any entries on the input job queue 

• Status information about the display stations, printers, and the diskette 
drive 



Used by the display station operator to display any of the following: 

• Status of the display station session 

• Input job queue entries for jobs submitted from the display station by 
the current display station operator 

• Status of the display stations, printers and diskette drive 



Figure 2-2 (Part 2 of 3). Control Command Summary 
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Command Function 



Module Diagram 



STOP 



TIME 



VARY 



Used by the system operator to do any of the following: 

• Stop the printing of jobs from the spool file 

• Stop the initiation of jobs from all display stations except the system 
console, or stops the initiation of jobs from a specified display station 

• Stop the initiation of jobs from the input job queue 

• Begin an orderly shutdown of the system with or without a key sort 

• Stops the execution of all jobs or a specified job 

Used by the system operator and the display station operator to display 
the time of day and the system date. 

Used by the system operator to change the status of the display station, a 
printer, the system printer, or the diskette drive from online to offline or 
from offline to online. 



#CCRT, 2.15 

#CPTC, 

#CCRR, 

and 

#CCJQ 



#CCTD 2.17 



#CCAS 2.4 



Figure 2-2 (Part 3 of 3). Control Command Summary 



The operator interrupts an executing program with the 
Attn key. The inquiry display that results from the inter- 
rupt allows the operator to: (1) resume the interrupted 
program; (2) return to a command interface where he can 
run another program; (3) cancel the interrupted program; 
or, (4) set inquiry condition and resume. 

The Sys Req key and Enter key allow the system operator 
to switch the system console between work station mode 
and system console mode. 

The Help key displays a description of the flashing error 
number that appears in the bottom left corner of the dis- 
play screen. 

When control is received from the task-to-task communica- 
tions router, the command processor checks the event con- 
trol mask (ECM) to determine if the call is due to an I/O 
error; if it is, control is given to I/O error recovery 
(#SVERP). If the call was not due to an I/O error, the 
command processor checks a series of pending functions to 
determine if control was received to process the functions. 
The functions that can be performed are, release, console 
SYSLOG, task suspend, stop system, and JOBQ detach. 



Inquiry Menu Option Processor and Resume 

The command processor inquiry menu option processor 
and resume function allows the operator to interrupt exe- 
cuting programs to submit new jobs or commands and then 
later resume the interrupted program. 



The inquiry menu processor receives control when the 
operator selects an option from the inquiry menu. The 
inquiry menu processor handles the RESUME, INQUIRY, 
CANCEL, RELEASE, and inquiry condition options. 

The resume function, initiated by command key 1 from 
the command display, reattaches the terminal to the inter- 
rupted program. 



Special Command Processor 

The special command processor (#CPSP) handles router 
accept errors and command key functions. It also receives 
control when the Enter key is pressed (1) after a program 
has released a display station at end of job, (2) after mes- 
sages were displayed from the MSG command, or (3) after 
a second level message was displayed at the system console. 



Command Processor/Work Station Data Management 
Interface 

Command processor/work station data management inter- 
face (#CPIO) is called with a RIB to indicate which type 
of I/O is requested. #CPIO builds a parameter list and 
passes control to work station data management (#DWDM). 
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Console Management 



Command Processor Cleanup 



Command processor console management provides a way 
to route messages to the system console or work stations 
and, if necessary, retrieve a response from the operator. 

The main functions performed by console management are: 

• Move message elements from the user's system- log sec- 
tor to the console system- log disk queue. 

• Free system- log queue sector for reuse. 

• Display messages at the system console. 

• Perform End-of-Job processing for console management. 

The work station logical I/O interface provides logical I/O 
keyboard data management services for SYSIN and logical 
SYS LOG/SYS LI ST data management services. 

The main data management services for SYSIN are: 

• Save the user's display screen. 

• Display logical I/O interface at the display station. 

• Process user response data from the keyboard. 

The main data management services for SYS LOG/SYS LIST 
are: 

• Save the user's display screen. 

• Display the logical I/O interface. 

• Display a message or halt on the display screen. 

• Display second-level messages as required. 

• Process write to operator with reply (WTOR) and write 
to operator without reply (WTO) messages. 

• Retrieve and return responses to the user. 

Console management normally returns control to the com- 
mand processor mainline module (#CPML) and work station 
logical I/O returns control to the calling program. 



The command processor cleanup routine provides cleanup 
activity and screen control for the other command proces- 
sor transient modules. 

The functions provided by the cleanup routine are: 

• Log input area to the history file 

• Retrieve messages by message identification code (MIC) 
or retrieve messages from main storage and display to 
specified display station 

• Log messages to the printer when applicable 

• Substitute data in message formats as required 

• Place system console messages on the system console 
queue 

Password Security 

Password security helps the System/34 user prevent unau- 
thorized use of the system. 

The user must request password security at system config- 
uration time to invoke the password security function. If 
the function is requested, system configuration routines 
will: 

• Allocate security file space and initialize it to binary 
zero 

• Build the master security officer record and write it to 
the security file 

• Initialize the appropriate system configuration record 
indicators 

At IPL time, system communication area (SCA) is initial- 
ized to indicate password security is active and security 
initialization is required. When system configuration is 
complete, the master security officer can sign on and 
authorize other system users by using the security file 
utility ($PROF) or the security file restore utility ($PRST). 
The master security officer can also use $PROF to alter 
fields within a particular security file record or prevent a 
particular system user sign on. 
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The security file contains information about system users 
authorized to sign on the system. A record for each author- 
ized user contains information such as: 

• User ID 

• Password 

• Security classification 

• Comments 

The security sign-on check is performed by security file 
data management (#PRSD). #PRSD is called by sign-on 
(#CPON). #PRSD searches the security file for the user ID 
and verifies the associated password and classification. 

I/O Error Recovery 

I/O error recovery issues error messages, recognizes opera- 
tor responses, and handles exception conditions. The com- 
mand processor serves as the interface between I/O error 
recovery (main storage) and the error recovery procedures 
(control storage and main storage). 

I/O error recovery consists of: 

• The error recovery router (#SVERP) 

© The work station error message transient (#SVWER) 

• The display station error recovery transient (#SVWSR) 

• The display station error recovery for device not ready 
transient (#SVNRY) 

• The printer prepare transient for matrix printers 
(#SVPRE) 

• The command reject ready transient (#SVUR) and 
routine (#SVRD) 



The command processor initiates I/O error recovery when 
the command processor error event control mask (ECM) 
is posted by a control storage routine. The command 
processor calls the I/O error recovery router (#SVERP), 
which determines what I/O error recovery functions are 
required. 

If an error message is to be displayed, #SVERP calls the 
I/O error message transient (#SVWER). For display sta- 
tion errors, #SVERP calls display station error recovery 
(#SVWSR); for all other I/O device errors, #SVERP passes 
control to a control storage transient. 



Display Station Error Recovery 

The display station error recovery transient (#SVWSR) 
handles error recovery for display station hardware and 
program related errors. For device not ready errors, 
#SVWSR calls the display station error recovery for device 
not ready transient (#SVNRY). The command reject ready 
transient (#SVUR) pushes/pulls the user task for #SVRD, 
when required. The command reject ready routine 
(#SVRD) processes command rejected records. 
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Method of Operation 



Special command processing 



This section contains functional diagrams for the routines 
needed to process commands. They are: 

• Router 

• Sign-on 

• Command processing 

• Job initiation and display station release 

• High level aids and task-to-task communications router 

• Inquiry menu option and resume processing 



• Command processor/work station data management 
interface 

• Console management 

• Command processor cleanup 

• Password security 

• I/O error recovery 

• Work station error recovery 



m INPUT 



From: Main Storage IPL 

■i PROCESS 



Required system 
areas 




> 



Diagram 2.0. Overview of Command Processor 



Router (Diagram 2.1) 

Sign-on (Diagram 2.2) 

Command Processing Overview (Diagram 
2.3) 

Job initiator and work station release 
overview (Diagram 2.18) 

High level aids and task-to-task 
communications router (Diagram 2.21) 

Inquiry menu option processor and 
resume overview (Diagram 2.22) 

Special command processor (Diagram 2.25) 

Command Processor/work station data 
management interface (Diagram 2.26) 

Console management overview (Diagram 
2.27) 

Command processor cleanup (Diagram 2.31) 

Password Security (Diagram 2.32) 

I/O error recovery (Diagram 2.33) 



m OUTPUT 



> 




Updated system 
areas 

Appropriate 
display 



To: Initiator Function 
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From: I PL or Command Processor Transient 



INPUT 



Main Storage 



Transient Area: 
#CPRT 

or 
#CPTC 



User Area: 
#CPML 



System Queue 
Headers 

TCB chain 

TUB chain 

Menu Message 
Member 




PROCESS 



t> 



Wait for event to occur and rout control to 
appropriate command processor transient 

Process work station invite op-end 



^> 




OUTPUT 



Command parameter 
list 

Attach parameter 
list 

Cleanup parameter 
list 

Call to appropriate 
transient 



To: Requested Command 
Processor Transient 



DESCRIPTION 



MODULE/ 
ROUTINE 



Wait for event to occur. 

If event is invite op-end, go to |Q. 

If event is high-level aids or task-to-task communications exit to #CPTC (Diagram 2.21 ). 

Check for special routing conditions (preaccept): 

• Input not caused by Enter key. 

• Input only to cause screen restore or refresh. 

• Input is release acknowledgement. 

If any of the above conditions exist, exit to #CPSP. 

If invite op-end: 

• Build work station data management parameter list. 

• Accept input data. 

• Process specials (post accept) : 

— If input for sign on request, exit to sign on transient (#CPON). 

— If input from status display and not I, exit to status transient (#CCSM). 

— If console output, exit to console output transient (Logical I/O function — #CMCI). 



#CPML 



#CPRT 



#DWDM 



#CPRT 



Diagram 2.1 (Part 1 of 2). Perform Router Function 
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DESCRIPTION 



MODULE/ 
ROUTINE 



• Process menu input (if applicable): 

— Build message retrieve parameter list. 

— Convert input data to message identification code (MIC). 

— Retrieve MIC and place in input buffer. 

— If menu cancel request, exit to menu command processor (#CCMU). 

• Scan input: 

— Isolate verb and operand data. 

— If input an inquiry menu option, exit to inquiry menu processor (#CPIQ). 

— If input a command: 

a. Verify that command allowed in present mode. 

b. Build command transient parameter list in command processor work area. 

c. Exit to command or function requested. 

— If input a job request: 

a. Ensure job initiation allowed at requesting work station. 

b. If inquiry and job control block (JCB) and work station work area not allocated, link to #CPIQ to 
allocate space (inquiry menu processing function). 

c. If not multiple requester terminal (MRT), start initiator (job start function). 

d. If MRT and work station can be attached, attach terminal unit block (TUB) to task (job start function). 

If errors detected: 

• Build #CMCU parameter list. 

• Exit to cleanup (#CMCU) to display message (Diagram 2.31). 



#CPRT 



0MGRET 



#CPRT 



#SVAT 



#CPRT 



Diagram 2.1 (Part 2 of 2). Perform Router Function 
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■INPUT 



c 



XR2 

CP work area 

Main Storage 



Transient Area: 
#CPON 



User Area: 



User Program 



TCB 

SCA 

System display 

formats 

Work station 

configuration record 



From: IPL or 

Input Router (#CPRT) 
m PROCESS i 




s> 



Q Process test request 

Qj Process IPL special request 

3 Process sign-on information 

Q Process security file information if 
security in effect 

Q Create job control block (JCB) 

Q Process library information if library 

Q Process IPL information if IPL in 
progress 

[jj Process menu display request if menu 
name supplied 

Pa Indicate work station signed on 



> 




OUTPUT i 

SCA 
TCB 
JCB 
Display 



Cleanup parameter 
list 

Menu parameter 
list 



To: IPL or 

Cleanup Routine (#CMCU) 



DESCRIPTION 



MODULE/ 
ROUTINE 



If test request call: 

• Build JCB. 

• Sign on work station. 

• Attach the initiator to run test request program. 

• If job submission halted, issue error message. 

If IPL special request, put up appropriate display (command or system). 

Verify USER ID syntax and check that high-level dedication not in effect. 

Examine security file flag in system communication area (SCA) to determine if security in effect. 

Retrieve user's security profile. 

Determine if: 

• Security file was found. 

• User ID in security file. 

• Operator entered correct password. 

If security information not correct, issue error message. 



#CPON 



#PRSD 



#CPON 



#CMCU 



Diagram 2.2 (Part 1 of 2). Perform Sign-on Function 
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DESCRIPTION 



MODULE/ 
ROUTINE 



|«J If data work station: 

• Set up work station data management parameter list for standby display. 

• Indicate in terminal unit block (TUB) that work station signed on and in standby mode. 
► • Display standby screen. 

• If messages pending for this display station, 
display them. 

• Load and pass control to cleanup routine (#CMCU). 

If command work station: 

• Assign job control block (JCB). 

• Chain TUB to JCB. 

• Initialize JCB with work station configuration record and default values. 

• Put printer ID in TUB. 

] Determine if library name entered. 

If library name not 0, set up library find parameter list. 

Find specified library. 

Move library format 1 address into JCB. 

If library not found, issue error message. 
I Determine if IPL in progress. 

Move date into SCA if date specified. 

Set system timer if time is valid. 

Issue error message if invalid time entered. 

Indicate overrides in SCA if OVERRIDES=Y. 
KjJ Determine if menu specified. 

Set up menu parameter list. 

Build menu format index. 

Ensure menu on. 
(•] Indicate display station signed on in TUB. 

Put user ID in TUB and system date in JCB. 

If IPL in progress, return to IPL procedure. 

If not IPL, build work station data management parameter list. 

Display requested screen: 

• Command Display. 

• Menu display. 

If messages pending for this display station, 
^ display them. 

If region size was bad, issue warning. 

Load and pass control to the cleanup routine (#CMCU). 



#CPON 



#DWDM 



#CPON 



#CCMX 



#CPON 



#CPON 



#MAFLB 



#CPON 



#CMCU 



#CPON 



#CMCU 



#CPON 



#CCMU 



#CPON 



#DWDM 



#CPON 
#CCMX 



#CPON 



Diagram 2.2 (Part 2 of 2). Perform Sign-on Function 
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INPUT 



From: Input Router (#CPRT) 

■i PROCESS 




TUB and UDT 



TCB, TUB, TCB 



Job queue 



TCB and TUB 



Spool file 



TUB 



Menu message 
member 

Message text 



JCB, FSB, and TUB 



TUB, TCB, and JCB 



Input parameter 



TCB, TUB, and JCB 



TUB, TCB, SCA, 
and JCB 



Time and date 



I I 



£>• Process ASSIGN or VARY command ~ 
| (Diagram 2.4) 

V^>* Process CANCEL command (Diagram 2.5) 



I J 



*^» Process CHANGE or JOBQ command 
(Diagram 2.6) 



I I 



\^ m Process CONSOLE request (Diagram 2.7) 



I J 



f^ # Process HOLD or RELEASE command 
(Diagram 2.8) 



I 1 



**>• Process IDELETE request (Diagram 2.9) 
^>° Process MENU command (Diagram 2.10) 



^>* Process MSG command (Diagram 2.1 1 ) 






I 



Process MODE or OFF command 
(Diagram 2.12) 



|T>* Process PRIORITY command (Diagram 2.13) 

X J 

.>• Process REPLY command (Diagram 2.14) 

I H 

"^> • Process START, STOP, or R ESTART 

I command (Diagram 2.15) 



"**>• Process STATUS command (Diagram 2.16) 

4 ' 

__>• Process TIME command (Diagram 2.17) 



f 



OUTPUT 



I I 



fj> Updated TUB and 
UDT 



I I 



^> Updated TCB and 
I JCB 

*^ Updated job queue 



I I 



"^ Console screen 
display 



I 1 



"^ Updated spool 
file index 



I 



£> Updated TUB 



I I 



^> Requested menu 
display 



*^ Printed or 
I displayed message 



I I 



J>UpdatedJCB, FSB, 
and TUB 



^> Updated JCB and 
| TCB 

^> User response 



i I 



£> Updated TCB, TUB, 
and JCB 



I 



^> Status display 




I^^Time and date in 
command pro- 
cessor work area 



To: Cleanup Routine (#CMCU) 



Diagram 2.3. Overview of Command Processing 
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INPUT 



From: Input Router (#CPRT) 

m PROCESS 



C 



XR2 

Parameter list 
Main Storage 



Transient Area: 
#CCAS 



User Area 



TUB chain 

UDTs 

TUBs 




> 



Process ASSIGN command 
Process VARY command 



£> 




OUTPUT 

TUB 
UDT 



Cleanup routine 
parameter list 



To: Cleanup Routine (#CMCU) 



DESCRIPTION 



MODULE/ 
ROUTINE 



Determine if ASSIGN or VARY command entered. 

If VARY command, go tojj. 

If operand one not PRT, check syntax and switch terminal IDs in terminal unit blocks (TUBs) if no errors exist. 

If operand one PRT: 

• Syntax check operand two. 

• Ensure operand two on TUB chain and printer. 

• Indicate new printer in system communication area (SCA). 

Issue error message if: 

• From terminal ID invalid. 

• From terminal online. 

• To terminal ID invalid. 

• To terminal online . 

• Operand one printer but operand two not printer . 

Verify operand two: 

• Printer. 

• Diskette. 

• Workstation ID. 

Verify operand one: 

• ON. 

• OFF. 



#CCAS 



#CMCU 



#CCAS 



Diagram 2.4 (Part 1 of 2). Perform ASSIGN and VARY Command Processing 
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DESCRIPTION 



MODULE/ 
ROUTINE 



If work station ID: 

• Verify work station on TUB chain. 

• If VARY ON request: 

— Check TUB and if work station offline, update TUB to indicate work station online. 

— If work station already online, issue message. 

• If VARY OFF request: 

— Check TUB and if work station online, update TUB to indicate work station offline. 

— If TUB active, issue error message. 

— If work station already offline, issue message, 

— If ACE on command processor, complete queue, deque, and free it. 

If VARY PRT request: 

• If vary ON request: 

— Check TUB and if printer offline, update TUB to indicate printer online. 
^ — If printer already online, issue message. 

• If VARY OFF request: 

— Check TUB and if printer online, update TUB to indicate printer offline. 

— If TUB active, issue error message. 

— If printer already offline, issue message. 

If VARY Diskette request: 

• If vary ON request: 

— Check UDT and if diskette offline, update UDT to indicate diskette online. 

— If diskette already online, issue message. 

• If VARY OFF request: 

— Check UDT and if diskette online, update UDT to indicate diskette offline. 



— If diskette already offline, issue message. 
Build cleanup routine parameter list. 
Call and pass control to cleanup routine (#CMCU). 
Note: If errors occur, call #CMCU to issue error message. 



#CCAS 



#CMCU 



#CCAS 



#CMCU 



#CCAS 



#CMCU 



#CCAS 



#CMCU 



#CCAS 



#CMCU 



#CCAS 



#CMCU 



#CCAS 



#CMCU 



#CCAS 
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INPUT 



From: Input Router (#CPRT) 

■i PROCESS 



C 



XR2 

CP work area 

Main Storage 



Transient Area: 
#CCCM 
#CCJQ 
#CCCP 



User Area 



TCB chain 
TUB chain 
TUB 
TCB 
JCB 




> 



Determine function requested 
Process CANCEL JOBQ request 
Process CANCEL PRT request 
Process CANCEL jobname request 



t> 




OUTPUT 



TCB 

JCB 

CP work area 

Cleanup routine 
parameter list 



To: Cleanup Routine (#CMCU) 



DESCRIPTION 


MODULE/ 
ROUTINE 


J Search for operand 1 in cancel command operand table: 


#CCCM 


* If cancel JOBQ request go to Q . 




• If CANCEL PRT request, go to H • 




• If CANCEL jobname, go to Q. 

• If inquiry, go toQ| Cj9 . 

• If error, go to Q ^% . 




WM Verify correct number of operands (if ALL, verify in console mode). 




Load and pass control to input job queue transient (#CCJQ). 

If jobname given: 

• Locate specified jobname. 

• Remove specified entry from job queue. 

• Chain specified entry to available queue. 

• Set message identification code (MIC) to display cancel successful message. 

• Call cleanup transient (#CMCU) and exit. 




#CCJQ 


FDIOS 


#CCJQ 


If ALL given: 

• Remove all entries from job queue. 

• Chain all entries to available queue. 

* Set MIC to display cancel successful message. 

* Call cleanup transient (#CMCU) and exit. 




FDIOS 


#CCJQ 


Verify correct number of operands and in console mode. 





Diagram 2.5 (Part 1 of 2). Perform CANCEL Command Processing 
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DESCRIPTION 



MODULE/ 
ROUTINE 



gcj Load and pass control to spool command — cancel transient (#CCCP). 

If jobname given: 

• Locate specified jobname. 

• Ensure OK to cancel job. 

• Remove specified entry from print queue. 

• Chain entry to available queue. 

• Increment number of available spool file block-groups. 

• Call cleanup transient (#CMCU) and exit. 

If jobname not given, but ALL is specified: 

• Remove all entries (not executing) from the print queue. 

• Chain all entries to available queue. 

• Increment number available spool file block-groups. 

• Call cleanup transient (#CMCU) and exit. 

^J Locate jobname in task control block (TCB) chain. 
Verify operand length is eight characters. 
Ensure command issued from console. 
W& If no operand or 3 option, indicate 3 option in TCB. 
If 2 option, indicate 2 option in TCB. 

If D or DUMP option: 

• Set dump indicator in TCB. 

• Indicate 3 option in TCB. 

If not cancelable and not inquiry cancel: 

• Indicate cancel pending in TCB. 

• Enter job canceled MIC in JCB and indicate termination should display message. 

• Call cleanup transient (#CMCU) to display cancel pending at system console and exit. 

If job in termination and 2 option taken, pend cancel as if not cancelable. 

Force TCB to call end of job. 

If inquiry, exit to caller. 

If cancel command, issue message to operator indicating job being canceled. 



#CCCM 



#CCCP 



FDIOS 



#CCCP 



FDIOS 



#CCCP 



#CCCM 



#CMCU 
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INPUT 




From: Input Router (#CPRT) 

m PROCESS 




Transient Area: 
#CCJQ 
#CCHO 



User Area 



TCB chain 
TUB chain 
Job queue 
Spool file 
JCB 



Determine function requested 
Process JOBQ command 
Process CHANGE JOBQ request 
Process CHANGE PRT request 
Process CHANGE COPIES request 
Process CHANGE FORMS request 



OUTPUT 



:> 



TCB chain 
Job queue 
Spool file 
JCB 




To: Cleanup Routine (#CMCU) 



DESCRIPTION 



MODULE/ 
ROUTINE 



Search command routing code for requested function": 

• If JOBQ command, go to fj^. 

• If CHANGE JOBQ request, go to Rl. 

• If CHANGE PRT request, go toEB. 

• If CHANGE COPIES request, go to(jj. 

• If CHANGE FORMS request, go to|J. 

Ensure enough room exists on queue for new entry. 

Ensure proc name parameter given. 

Chain new entry to job queue. 

Save any optional parameters supplied. 

Place jobname assigned to new entry in command processor work area. 

Call cleanup routine (#CMCU), pass job name to #CMCU for display, and exit to #CMCU. 

Ensure job queue exists. 

Ensure jobname supplied exits. 



#CCJQ 



Disk IOS 



#CCJQ 



Disk IOS 



Diagram 2.6 (Part 1 of 2). Perform CHANGE and JOBQ Command Processing 
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DESCRIPTION 



MODULE/ 
ROUTINE 



If second jobname(jobname1 ), chain jobname being changed behind jobnamel . 

If second jobname not given or not found, chain jobname being changed to top of job queue. 

Call and pass control to #CMCU. 

Q Ensure jobname specified and exists. 

Remove specified jobname from present position on print queue chain. 

If second jobname (jobnamel ) given, chain jobname being changed behind jobnamel on print queue and set 
priority of moved jobname equal to priority of jobnamel . 

If second jobname not given, chain jobname being changed to top of print queue (first on print queue) and 
change priority to 5. 

Call #CMCU to display message CHANGE COMMAND SUCCESSFUL and exit. 
Q Ensure jobname specified and exists. 

Ensure valid number of copies given. 

Change number of copies in spool file index to new number specified. 

Call #CMCU to display message CHANGE COMMAND SUCCESSFUL and exit. 
[jj Ensure jobname specified and exists. 

Ensure valid forms number supplied. 

Change forms number in spool file index to new forms number supplied. 

Call #CMCU to display message CHANGE COMMAND SUCCESSFUL and exit. 

Note: If error occurs, call #CMCU to issue error message. 



#CCJQ 



Disk IOS 



#CCGP 



Disk IOS 



#CCGP 



Disk IOS 



#CCGP 



#CCJQ 



Disk IOS 



#CCJQ 
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INPUT 



From: Input Router (#CPRT) 

PROCESS 



^XR2 

C 

Parameter list 



Main Storage 



Transient Area: 
#CCCO 



User Area 



SCA 
TCB 
TUB 
TUB chain 




r 



> 



Ql Ensure console command request is valid 

3 Display console image on new console 
screen 

gj Update old and new master console indicates 

Q If called by error recovery, rebuild console 
display and exit. 



> 




OUTPUT 



TUB 

TUB chain 

Console screen 
display 

SCA 



To: Cleanup Routine (#CMCU) 



DESCRIPTION 



MODULE/ 
ROUTINE 



Locate command processor task control block (TCB) and master console terminal unit block (TUB). 

If security active on system (SCAMSEC), ensure command user security status is system operator or higher 
(TUBOPSTS). 

If inquiry active at terminal entering command (TUBINQ1 and TUBINQ2), issue error message (MIC 5635). 

If work station not defined alternate console at configuration time (TUBACN) issue error message (MIC 5636). 

If current console does not have error indicator (TUB$ERR), issue error message (MIC 5638). 

Assign space to retrieve screen image from command processor task work area (TWA). 

Blank out assign/free area. 

Build work station data management parameter list. 

Display blank console format. 

Process system console image matrix: 

• Find next image matrix entry requiring response. 

• Determine disk sector containing screen data line. 

• Read sector from TWA on disk. 

• Build work station data management parameter list. 

• Display appropriate 80-byte entry on new console screen. 

• Repeat steps until all system console image matrix entries displayed. 

Set off master console indication (TUBMCN) for old console TUBs. 
Set on master console indication (TUBMCN) for new console. 
Indicate new console in console mode (TUBMCNSL). 
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DESCRIPTION 



MODULE/ 
ROUTINE 



Turn off console check light. 

Create command TUB and chain to console TUB. 

Set up console TUB address in SCA (SCADMTUB). 

Lock on to the TUB chain and free up the assign free space of the original console TUB. 

Rechain any TUBs above the old console TUB to point at horizontal TUB. 

Call error recovery transient to free up any resources associated with a job that was active at the original 
system console. 

Load and pass control to cleanup routine (#CMCU). 
Note: If errors occur, call #CMCU to issue error message. 
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INPUT 



From: Input Router (#CPRT) 

PROCESS 



C 

CP work area 



Main Storage 



Transient Area: 
#CCHO 



User Area 



TCB chain 
TUB chain 
Spool file 




r 



> 



Determine function requested 
Process HOLD command 
Process RELEASE command 



> 




■ OUTPUT 



TCB chain 
Spool file 



To: Cleanup Routine (#CMCU) 



Diagram 2.8. Perform HOLD and RELEASE Command Processing 



DESCRIPTION 


MODULE/ 
ROUTINE 


tUt Search command routing code for requested function: 

• If HOLD, gotoQ. 

• If RELEASE, goto Q. 


#CCHO 


£] Check for jobname specified in command. 




If jobname not specified: 

• Set Q-held indicator in master index. 

O Call cleanup routine (#CMCU) to issue message (HOLD COMMAND SUCCESSFUL) and exit. 




Disk IOS 


#CCHO 


If jobname specified: 

• Set job ISIN held bit in spool file index to indicate specified jobname held. 

• Call #CMCU to issue message (HOLD COMMAND SUCCESSFUL) and exit. 




Disk IOS 


#CCHO 


m Check for jobname specified in command. 




If jobname not specified: 

• Set off Q-held indicator in master index. 

• Call #CMCU to issue message (RELEASE COMMAND SUCCESSFUL) and exit. 




Disk IOS 


#CCHO 


If jobname specified: 

© Set off job is in held bit in spool file index. 

• Call #CMCU to issue message (RELEASE COMMAND SUCCESSFUL) and exit. 




Disk IOS 


#CCHO 


If ALLH specified: 

• Set off job is in held bit in spool file index of all jobs currently held. 

• Call #CMCU to issue message (RELEASE COMMAND SUCCESSFUL) and exit. 




Disk IOS 


#CCHO 


Note: If error occurs, call #CMCU to issue error message. 
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p INPUT 



From: Input Router (#CPRT) 

m PROCESS 



^-XR2 



Parameter list 
Main Storage 



Transient Area: 
#CCID 



User Area 



TUB 




> 



Process I DELETE request 



O 




OUTPUT 



TUB 



To: Cleanup Routine (#CMCU) 



DESCRIPTION 



MODULE/ 
ROUTINE 



Check parameter 1 for ON or OFF entered. 

If parameter 1 not ON, OFF, or null, issue error message (MIC 5720). 

Find terminal unit block (TUB) address. 

If OFF entered, indicate IDELETE off in TUB (TUBIDEL). 

If ON or nothing entered, indicate IDELETE on in TUB (TUBIDEL). 

Set up IDELETE successful message (MIC 5721). 

Build cleanup parameter list. 

Load and pass control to cleanup (#CMCU). 
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INPUT 



From: Input Router (#CPRT) 

or Sign-on Routine (#CPON) 
PROCESS 



(XR2 



Parameter list 
Main Storage 



Transient Area: 
#CCMU 



User Area 



CP work area 

TCB 

TUB 

JCB 




r 



Process MENU request 



> 




OUTPUT 



CP work area 

Cleanup routine 
parameter list 

TCB 

TUB 

JCB 



To: Sign-on Routine (#CPON) 
or Cleanup Routine (#CMCU) 



DESCRIPTION 



MODULE/ 
ROUTINE 



UB Determine command entered. 

If cancel menu request (option 0): 

• Build work station data management parameter list. 

• Display command screen. 

• Set off menu active bit (TUB MENUA) in TUB. 

• Zero disk address in JCB. 

• If menu from # LIBRARY, subtract 1 from user count. 

• Exit. 

Find menu members: 

• Menu format member (ensure format valid SFGR format). 

• Menu message member. 

• Verify from same library. 

^ Retrieve message member: 

• Set up job control block (JCB). 

• Set up IOB. 

• Read format member from disk. 

• Indicate menu active (TUBMENUA). 

• If menu was active, end previous menu. 

If called from sign-on function, return control to sign-on routine (#CPON). 

If status active (TUBSTATA), pass control to status display (#CCSM) to end status. 

If called by MENU command: 

• Build work station data management parameter list. 

• Display requested menu. 

• Pass control to #CMCU. 

Note: If errors occur, call #CMCU to issue error message. 
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INPUT 



From: Input Router (#CPRT) 

■ PROCESS 



XR2 

Parameter list 
Main Storage 



Transient Area: 
#CCMG 
#CCMX 



User Area 



TUB chain 
TUB 
TCB 
JCB 
Message text 




> 



U Ensure command validity and check 
operand count 

Q Process system console broadcast message 

gj Process work station to system console 
message 

Q Process system console or work station to 
specific work station message 

H Display messages at work stations 



t> 




■ OUTPUT 



TUB 

TCB 

JCB 

SCA 

Displayed message 

Printed message 



To: Cleanup Routine (#CMCU) or 

Command Processor Mainline (#CPML) 



DESCRIPTION 


MODULE/ 
ROUTINE 


Q Check message command entered and issue error messages as necessary: 


#CCMG 


• If command invalid in console mode, issue message identification code (MIC) 5633. 




• If no messages to send, issue MIC 5634. 




• If message text missing, issue MIC 5628. 




• If message text longer than 60 characters, issue MIC 5627. 




* If message is being sent to a device other than a work station, issue MIC 5626. 




• If ALL invalid, issue MIC 5625. 




• If not enough assign/free space, issue MIC 5702. 




• If work station is offline, issue MIC 5623. 




If error detected: 




• Build cleanup routine (#CMCU) parameter list. 

• Display error message. 

If operand count zero, call message command show routine (#CCMX) to issue messages and go tojjj. 




#CMCU 


#CCMG 


Q Ensure room exists in message queue. 




Build message in work area. 




Locate users message queue sector. (TWA SVC 51). 




Place message in users queue sector. 
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DESCRIPTION 



MODULE/ 
ROUTINE 



Write sector back to disk. (TWA access SVC 51 ). 
Return. 

If spool inactive, system in single program mode, and log printer active, put message to printer. 
If unable to find space in user's message queue, issue error message — MIC 5639 and exit to #CMCU. 
Sound alarm at each display station online. 

Set up MESSAGE COMMAND SUCCESSFUL message - MIC 5632. 
Build cleanup routine (#CMCU) parameter list. 
Display message MIC 5632. 
Ensure room exists in message queue. 

If unable to find space in console message queue, issue MIC 5629 and exit to #CMCU. 
Build message in work area. 
Locate message queue sector. 
Place message in queue sector. 
Update and write sector back to disk. 
Increment message queue count in SCA. 
Post console SYSLOG (#CMCI). 
Build cleanup routine (#CMCU) parameter list. 
Display message - MIC 5632. 
| Search TUB chain for work station ID matching work station ID entered (WS-ID). 
Search TUB chain for user ID if user-ID given. 

If no work station ID or user ID found to match, issue MIC 5630 and exit to #CMCU. 
Save TUB address. 

Initialize message queue sectors associated with specified work station if message count in TUB=zero. 
Build message in work area. 

Locate message queue sector. (TWA request SVC 51 ) 
If no queue space available, issue MIC 5630 and exit to #CMCU. 
Place message in queue sector. 

Write queue sector back to disk. (TWA request SVC 51 ) 
Increment message queue count. 
If display station is online, sound alarm at display station. 
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DESCRIPTION 



MODULE/ 
ROUTINE 



Build cleanup routine (#CMCU) parameter list. 

Display message MIC 5632. 
|j| Indicate message screen active (TUBMSGA). 

Reset broadcast message failure. 

Determine TUB to use. 
► Turn off light at display station. 

Set on initial call switch. 

Build work station data management parameter list and insert work station ID. 

Put screen to proper terminal. 

Reset initial call switch. 

Check user message queue and if not empty: 

• Find message queue sector. (TWA request SVC 51) 

• Read message from disk. 

• Decrement use count byte in message sector. 

• Write updated message sector back to disk. (TWA request SVC 51 ) 

• Increment message count on screen. 

• Decrement message Q-count. 

• Build work station data management parameter list. 

• Output messages to proper terminal. 

• If spool inactive, system in single program mode, and log printer active: 
put message to printer. 

• Repeat until user message queue empty. 

If user message queue empty: 

• Set indicator to restore command screen (TUBRST2) when enter key pressed. 

• Indicate message screen active and more messages to be displayed (TUBMSGA). 

• Load and pass control to CP mainline (#CPML). 
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i INPUT 



From: Input Router (#CPRT) 

■D PROCESS 




c 



XR2 

Parameter list 
Main Storage 



o 



Determine function requested 
Process MODE command 
Process OFF command 



Transient Area: 
#CCOF 



User Area 



CP work area 

TUB 

TCB 
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m OUTPUT i ff. "■, r^r i" 



CP work area 

TUB 

Display 
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To: Cleanup Routine (#CMCU) 



DESCRIPTION 



MODULE/ 
ROUTINE 



Ensure terminal not in inquiry mode (TUBATTR4). 

If menu active and menu from system library, subtract 1 from format 1 user count. 

Search command routing cod e for requested function: 

• If MODE command, go to ^j. ^^ 

• If OFF command or if ERROR OFF command code, go to BBI - 

If work station in command mode (TUBATTR2): 

• If status active, call #CCSM to end status. 

• Indicate terminal in standby mode (TUBATTR2). 

• Set up work station data management parameter list. 

• Display standby screen. 

• Load and pass control to cleanup routine (#CMCU). 

If work station in standby mode: 

• Indicate terminal in command mode (TUBATTR2). 

• Set up work station data management parameter list. 

• Display command screen 

• Load and pass control to #CMCU. 

Indicate terminal not signed on (TUBATTR1 ). 

If OFF command from command work station: 

• If status active, call #CCSM to end status. 

• Initialize terminal unit block (TUB). 

• If job control block (JCB) pointed to by TUB: 

— If format 1 user count is 1 , free format 1 for each file specification block (FSB). 

— If user count greater than 1 , decrement user count by 1 for each FSB. 

— Free each FSB. 
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DESCRIPTION 



MODULE/ 
ROUTINE 



• Free job control block (JCB). 

• Initialize local area to blanks. 

• Read work station configuration record to obatin default library name. 

• If ERROR OFF, clear ERB and exit. 

• Insert library name in work station data management parameter list. 

• Turn off the message waiting light. 

• Display command work station sign-on display. 

• If test request call, set off test request and exit. 

• Load and pass control to #CMCU. 

If OFF command from data work station: 

• Initialize TUB. 

• Build work station data management parameter list. 

• Display data work station sign-on display. 

• Load and pass control to #CMCU. 

Note: If errors occur, call #CMCU to issue error message. 
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INPUT 



From: Input Router (#CPRT) 

m PROCESS 



^-XR2 



CP work area 
Main Storage 



Transient Area: 
#CCPY 



User Area 





:> 



Process PRIORITY command 



:> 



OUTPUT 



Parameter list 
for #CMCU 

JCB 

TCB 




To: Cleanup Routine (#CMCU) 



DESCRIPTION 



MODULE/ 
ROUTINE 



Determine if command entered from console or work station (TUBATTR2). 

If command entered from work station: 

• Set priority indicator in job control block (JCBDSCH2). 

• Load and pass control to cleanup routine (#CMCU) to display message (PRIORITY ACCEPTED). 

If command entered from console: 

• Ensure valid jobname supplied. 

• Find JCB for specified job. 

• Verify ON/OFF operand if supplied. 

• If ON or not specified, set priority indicator in JCB (JCBDSCH2) and set TCB (TCBPRIOR) priority to high. 

• If OFF requested, set off priority indicator in JCB and set TCB priority to low. 

Note: If errors occur, call #CMCU to issue error message. 
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Diagram 2.13. Perform PRTY Command Processing 
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From: Input Router (#CPRT) 




PROCESS 



Perform preliminary command processing 
Process I parameter if supplied 
Process C parameter if supplied 
Process message ID parameter if supplied 
Process response parameter if supplied 



U 



OUTPUT 

User response 

TCB 

TUB 



■E339HB 



To: Cleanup Routine (#CMCU) 



DESCRIPTION 



MODULE/ 
ROUTINE 



t> 



Determine if status display on display screen (TUBATTR2). 

Issue error message if REPLY command and status display present (MIC 5616). 

Scan system console image matrix for message response from end of job (EOJ) (CMCISWH). 

If response from EOJ, put ** over message IDs. 

If no message ID entered (first parameter null) or message ID greater than two characters, issue error 
message (MIC 5617). 

Determine if I parameter entered. If entered: 

© Scan image matrix for throw-response-away bit (CMCITHR). 

© Indicate response given (CMCIREP). 

O Put ** over message ID. 

© Display successful message (MIC 5615). 

© If number of available lines is five or more, issue messages still pending. 

© Pass control to cleanup routine (#CMCU). 

If C parameter entered: 

© Rearrange matrix so all messages still in need of a response are at the end of the matrix. 

© Roll down screen and clear rolled lines. 

© Display successful message (MIC 5615). 

© If number of available lines is five or more, issue messages still pending. 

© Pass control to cleanup routine (#CMCU). 
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DESCRIPTION 



MODULE/ 
ROUTINE 



Q Syntax check message ID. 

Issue syntax error message (MIC 5617) if necessary. 

Search system console image matrix for message ID match. 

Issue error message (MIC 5618) if no match found. 

If match found is throw-away-response, go toUC9- 

m Blank out response data area. 

If nonresponse entered for operand 2 and, 

if SYSLOG halt, call #CCRS to handle second level message: 

• Read console image sector. 

• Extract MIC number from image. 

^ • Retrieve second level message from user message member. 

• Display reply successful message. 

• Save console screen. 

O Display second level message. 
^ • Indicate restore console interface on next keystroke. 

• Pass control to cleanup routine (#CMCU). 

If operand 2 is a response: 

• Verify operand 2 length less than or equal to caller requested option length. 

• Issue invalid length message (MIC 5619) if necessary. 

• If SYSLOG halt: 

— Verify option entered is permitted. 

— Issue option respons e err or message (MIC 5620) if necessary. 

— I f response on . go to ^J tj- 

Handle response not previously processed: 

• Move response to task work area. 

• Pass response to user. 

• Post task complete. 

• Pass control to #CMCU. 

Note: If errors occur, call #CMCU to issue error message. 
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From: 



INPUT 



c 



Parameter list 
Main Storage 



Transient Area: 
#CCRR 
#CCRT 



User Area 



TUB chain 

TCB chain 

TCBs 

TUBs 

JCB 

Syscom 



Input Router (#CPRT) 

| m PROCESS 



OUTPUT 



> 




Determine function requested 
Process START command 
Process STOP command 
Process RESTART command 



TCB chain 




mamaKwisBBs 
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To: Cleanup Routine (#CMCU) 



DESCRIPTION 



MODULE/ 
ROUTINE 



■ B Search for command in command routing code: 

• If START command, go to Q. 

• If STOP command, go to mm . 

• If RESTART command, go to Q. 

Qj Search for operand 1 in start command table. 
If operand 1 invalid, issue error message. 

If operand 1 is PRT or P, load spool transient (#CCRR): 

• If spool not supported or writer active, issue error message. 

• If writer not active: 

— Set forms number in class/page number area (BPCLSS) if form number given. 

— Create job control block (JCB) for writer. 

— Attach spool writer. 

— Issue start successful message (MIC 5664). 

If operand 1 is WORKSTN or W: 

• If operand 2 is missing or invalid, issue error message (MIC 5667). 
► • If operand 2 is ALL: 

— Set start initiation flag in terminal unit block (TUB) for all work stations. 

— Issue start successful message (MIC 5664). 
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DESCRIPTION 


MODULE/ 
ROUTINE 




• If operand 2 is work station ID: 

— Find specified work station on terminal unit block (TUB) chain. 

— Set start initiation flag for that specific work station. 

— Issue start successful message (MIC 5664). 

If operand 1 is JOBQ or J, load job queue transient (#CCJS): 

• Ensure dedicated program not running or Job queue not empty. 

• Issue error message if necessary. 

• Take first entry of job queue. 

• Indicate program to be loaded. 

• Find user library if given. 

• Attach job. 

• If unable to attach job because resources not available: 

— Put entry back on top of queue. 

— Return. 

— Issue error message (MIC 569-1). 

• If start successful, issue message (MIC 5685). 

If operand 1 is SYSTEM or S: 
^ © If there are two operands, issue error message (MIC 5541). 

• Verify that a start system can now occur. 

© Set flag in SCA (SCAMALL) to indicate all initiation started. 

• Restart spool writer and job queue if they were active at the time stop system was issued. 
° Start work stations. 

If operand 1 is JOB: 

If operand 2 is missing or invalid, issue error message (MIC 5567). 

© If operand 2 is ALL: 

— Find task control block (TCB) chain. 

— Ensure task suspended by system operator. 

— Set off suspended flag (TCBSDTSO). 

— Resume user tasks. 

— Issue start successful message (MIC 5664). 

• If operand 2 is jobname: 

— Ensure valid jobname. 

— Find task control block (TCB) for specified jobname. 

— Ensure task suspended by system operator. 

— Set off suspended flag (TCBSDTSO). 

— Resume user task. 

— Issue start successful message (MIC 5664). 

] Search for operand 1 in stop command operand table. 

If operand 1 invalid, issue error message. 

If operand 1 is PRT or P, load spool transient (#CCRR): 
► • If spool not supported or writer previously stopped, issue error message. 

• Set stop writer flag (BPFLAG). 

• Issue message Spool Writer Stopped (MIC 5663). 

If operand 1 is WORKSTN or W: 

• If operand 2 is massing or invalid, issue error, message (MIC 5667). 

• If operand 2 is ALL: 

— Set off initiation flag in TUB for all work stations. 

— Issue stop successful message (MIC 5663). 

• If operand 2 is work station ID: 

— Find specified work station on TUB chain. 

— Set off start initiation flag in TUB for specific work station. 

— Issue stop successful message (MIC 5663). 
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DESCRIPTION 



MODULE/ 
ROUTINE 



If operand 1 is JOBQ or J, load job queue transient (#CCJS): I #CCRT 

• Ensure dedicated program not running. | #CCJS 

• Indicate job queue stopped in SCA. 
^ • Issue stop successful message. #CMCU 

If operand 1 is SYSTEM or S: #CCRT 

• Ensure stop all indication flag (SCAMALL) not already set. 

• Set stop all indication flag (no new JOBQ or spool tasks will be started). 

• Post for input op-end, all never ending programs that have an invite count of zero for shut down inquiry. 

• Stop work stations^ 

• If operand 2 is SORT, or not given, perform keysort on all files that have the sort or merge bits on in the | #DDKAA 
F1 (F1AMSORT, F1AMMRGE). 

• Issue stop successful message (MIC 5663). #CMCU 

If operand 1 is JOB: I #CCRT 

• If operand 2 is missing or invalid, issue error message (MIC 5667). #CMCU 

• If operand 2 is ALL: | #CCRT 

— Find TCB chain. 

— Set task suspended indicators (TCBSDTSO). 

— Suspend user tasks. 

— Issue stop successful message (MIC 5663). | #CMCU 

• If operand 2 is jobname: | #CCRT 

— Ensure valid jobname. 

— Find TCB for specified jobname. 

— Set task suspended indicator (TCBSDTSO). 

— Suspend user task. 

— Issue stop successful message (MIC 5663). #CMCU 

Q Load and pass control to spool transient (#CCRR). #CCRT 

Ensure spool supported. #CCRR 

If spool writer active: 

• Set page number to value given in operand 2 or set to zero if no operand supplied. 

• Set flag (BPFLAG) to restart writer. 

• Issue spool writer restarted message (MIC 5703). | #CMCU 

If spool writer not active: #CCRR 

• Set page number to value given in operand 2 or set to zero if operand 2 not supplied. 

• Set flag (PBFLAG) to restart writer. 

• Attach spool writer. #SVAT 

• Issue restart successful message (MIC 5703)- I #CMCU 

Note: If errors occur, call #CMCU to issue error message. 
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#CCU2 



TCB chain 

TUB chain 
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CP work area 
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SEES 
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Q Perform preliminary STATUS command 
processing 

£ Determine STATUS function requested 

j Process STATUS PRT request 

J Process STATUS USERS request 

Q| Process STATUS JOBQ request 

J Process STATUS WORKSTN request 

X Process STATUS SESSION request 



na OUTPUT be 



£> 



EH2SC 



.".^, ... ^ .... J--TT 



Command transient 
parameter list 

JCB 

TUB 

Status display 

SQE 



To: Command Processor 
Mainline (#CPML) 



DESCRIPTION 


MODULE/ 
ROUTINE 


U Save portion of command processor work area in appropriate request block (RB). 


#CCSM 


Examine command routing code (CPCODE) for end status request. 




If end status request: 




© Find associated status queue element (SQE). 




• If SQE not found, exit program. 




• Free and dequeue SQE and exit. 




If status not active, go to^Q. 




If status active: 




• If SQE not found, abnormally terminate status. 




• If E page control character entered: 




— Restore previously saved display if work station in console mode. 

— Call console log processor if work station in console mode. 

— Return. 




#CMCI 


#CCSM 
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DESCRIPTION 



MODULE/ 
ROUTINE 



— Display menu if menu active and work station not in console mode. 

— Display command display if menu not active and work station not in console mode. 

— End status (TUBATTR2). 

— Dequeue and free SQE. 

— Exit program. 

• If I page control character entered: 

— Pass input information tp #CMCU for logging to history file. 

— GotoQQ- 

• If other page control character entered: 

— Determine which status was active in SQE (STATOPC): 



BO 

□o 



- If P, go to 

- lfU,goto|J 

- If J. go to Efc. 

- IfW.gotoQ. 

- If S and page 1 or 2 to be displayed, pass control to #CCSSJj. 

- If S and page 3 or 4 to be displayed, pass control tp #CCS3 Q ^^ . 

- If none of the above, abnormally terminate status. 

Qj Assign and queue an SQE. 

Log input to history file. 

If work station in console mode, save console display. 
mm If no operand 1 given, go toQ. 

Search for operand 1 in operand table and check number of operands: 

• If Por PRT,gotoO. 

• If U or USERS, goto Q. 

• If J or JOBQ, gotoQj. 

• If W or WORKSTN. oo topi. 

• If S or SESSION, goto Q. 

§cj Check if in console mode. 
Q Restore CPWRK. 

Route control to #CCSP. 

Ensure spool supported. 

Save portion of work area. 

Assign space for IOB, FDT, and text sectors of format and execution time data area. 

Free all but execution time data area. 

Check if first call or F, R, or U page control character. 

Read spool file master index. 

Read entries from spool file. 

Locate entries to display. 



#DWDM 



=#CCSM 



#CMCU 
#CCSM 
#DWDM 



#CCSM 



#CCSP 



Disk IOS 



#CCSP 
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DESCRIPTION 


MODULE/ 
ROUTINE 


Format entries to display. 


#CCSP 


Set up work station parameter list to display entries. 
Display spool print queue entries. 
Free output area. 




#DWDM 


#CCSP 


Restore work area. 




Load and pass control to command processor mainline (#CPML). 
£j| Check if in console mode. 




#CCSM 


Q Restore CPWRK. 




Route control to #CCSU. 
Save portion of CPWRK area. 




#CCSU 


Assign space for IOB, Format FDT sectors, text sectors, and execution time data areas; free all but 




execution time data areas. 




If operand 2 given, start function with job specified by operand 2. 




If R option, start with first TCB on TCB chain. 




If U option, start with TCBTSKID specified in SQE (IDCURRENT). 




If F or other option, start with TCBTSKID specified in SQE (IDFORW). 




If no users active: 

• If status users was active, display user's display with no jobs. 

• If status users was not active, call #CMCU to display error message. 




#DWDM 


#CCSU 


Restore CPWRK. 

Route control to #CCU2. 

Call message retrieve to retrieve translatable constants (if retrieve fails, use English version). 

Save part of CPWRK. 




#CCU2 


#MGRET 


#CCU2 


If JOBQ TCB exists and is requested, or if display is for page 1 : 




• If operand 2 points to this task, display this TCB only. 




• If no operand 2, create this line. 




Create lines until display is full or end of TCBs is reached beginning with TCB pointed to by #CCSU. 




If end of TCBs is reached and no lines have been built, restart from first TCB and build lines. 
If end of TCBs is reached and there are lines to be displayed, display them. 




#DWDM 


Display first half of display (if this is automatic status update, display format that will not clear input areas). 




Display second half of display. 
Point SQE at next TCB. 




#CCU2 


Free output area. 


_______^_^_ 
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DESCRIPTION 


MODULE/ 
ROUTINE 


Restore CPWRK. 


#CCU2 


Exit program. 
El Restore CPWRK. 




#CCSM 


Route control to #CCSJ. 
Ensure job queue supported. 
Save portion of work area. 




#CCSJ 


#CCSM 


Assign space for IOB, FDT, AND text sectors of format and execution time data area. 




Free all but execution time data area. 

Check if first call and if forward (F), reset (R), or update (U) page control character entered: 




#CCSJ 


© Ensure job queue supported. 

© Read job queue file index sector. 

© If status not active or R entered, set first entry on job queue as start of display. 

© If no page control character entered, assume forward (F) character and chain through queue to find entry 




Disk IOS 


#CCSJ 


Disk IOS 


by position number. 




Ensure queue not empty. 

If job name given, find entry requested. 

Read entry into buffer. 

If command from work station, ensure user ID and work station ID match. 




#CCSJ 


Disk IOS 


#CCSJ 


Format requested display in output buffer: 




© If work station request, work station ID and user ID must match. 




O If system console request, format all input job queue entries. 




Build work station data management parameter list. 




Display job queue entries. 

Free output area and restore work area. 


#DWDM 


#CCSJ 


Load and pass control to #CPML. 
H2 Restore CPWRK. 




#CCSM 


Route control to #CCSW. 
Save portion of work area. 




#CCSW 


Assign space for IOB, FDT and text sectors of format, and execution time data area. 




Call message retrieve to retrieve translatable constants. 




Free all but execution time data area. 




If operand 2 given, start function with work station given in operand 2. 




If R control character, start with first TUB. 




If U control character, start with current work station in SQE. 
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DESCRIPTION 


MODULE/ 
ROUTINE 


If F or other control character, start with forward work station in SQE. 


#CCSW 


Build line of output for each device. 

At end of page, display page (if automatic status, display format that does not clear input). 

Free output area. 




#DWDM 


#CCSW 


Restore work area. 




Exit program. 
ftj| Ensure not in console mode. 




#CCSM 


Restore CPWRK. 




Route control to #CCSS. 
Save portion of work area. 




#CCSS 


If 1 option, start page 1 . 




If R option, start page 1 . 




If U option, start from current page pointer in SQE. 




If F option, start from forward page pointer in SQE. 




If start page = 2: 




• Restore CPWRK. 




• Route control to #CCS2 Q^3- 




Assign space for IOB, format text and FDT sectors, and execution time data area. 

Call message retrieve to retrieve translatable fields and place in transient area (if retrieve fails, use English version). 

Free all but execution time data area. 




#MGRET 


#CCSS 


Build page 1 information. 




Set up SQE for current page = 1 and forward = 2. 

Call work station data management to display page 1 (if automatic status, display format that will not clear 




#DWDM 


input lines). 

Free execution time data area. 




#CCSS 


Restore CPWRK. 




Exit program. 
A Save 30 bytes of CPWRK. 




#CCS2 


Assign enough space for format FDT and text sectors, IOB, and execution time data area. 




Call message retrieve to retrieve translatable fields and place in work area (if message retrieve fails, use English 




version). 




Free all but execution time data area. 
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DESCRIPTION 


MODULE/ 
ROUTINE 


Build page 2. 


#CCS2 


Set up SQE current = 2, forward = 3. 

Call work station data management to display page 2 (if automatic status, display format that will not clear 




#DWDM 


input lines). 
Restore CPWRK. 




#CCS2 


Exit program. 
■£• Save 30 bytes of work area . 




#CCS3 


If U option, begin function with page in SQE. 




If F option, begin with forward page in SQE. 




If page 4, go to Q ^W. 




Assign space for format FDT and text sectors, IOB, and execution time data areas. 
Call message retrieve to retrieve translatable fields (if retrieve fails, use English verison). 
Free all but execution time fields. 




#MGRET 


#CCS3 


Build page 3 data. 




Indicate in SQE forward page = 4, current = 3. 

Call work station data management to display page 3 (if automatic status update, do not clear input lines). 

Restore CPWRK. 




#DWDM 


#CCS3 


Exit program. 




Q9 Assign space for format FDT and text sectors, IOB, and execution time data areas. 




Store assign area address in WDRECA into CPWRK. 




Call #CCS4 to build execution time data. 
Build execution time data for page 4. 
Free all but execution time data area. 




#CCS4 


#CCS3 


Point SQE forward to 1 , current = 4. 

Call work station data management to display format (if automatic status update, do not clear input lines). 

Exit program. 




#DWDM 


#CCS3 


Notes: 




1 . If errors occur, call #CMCU to issue error message. 




2. If SQE is new, dequeue and free SQE. 





Diagram 2.16 (Part 6 of 6). Perform STATUS Command Processing 
2-42 



Licensed Material— Property of IBM 



■ INPUT 



From: Input Router (#CPRT) 

■i PROCESS 



C 



XR2 

CP work area 

Main Storage 



Transient Area: 
#CCTD 



User Area 




t> 



Process TIME command 



t> 




OUTPUT ■ 



Time and date in 
command processor 
work area 

Parameter list 
for #CMCU 



To: Cleanup Routine (#CMCU) 



DESCRIPTION 



MODULE/ 
ROUTINE 



Initialize timer request block. 

Get time of day and date and place in command processor work area. 

Build parameter list for #CMCU. 

Pass control to #CMCU to display time and data. 

Note: If errors occur, call #CMCU to issue error message. 



#CCTD 



Diagram 2.17. Perform TIME Command Processing 
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From: Input Router (#CPRT) 



INPUT 



Required system 
areas 




PROCESS 



OUTPUT 



> 



• Perform job start function (Diagram 2.19) 

• Perform release function (Diagram 2.20) ' 



■ BiUUIr 

— ^> lni 



itiator start 




]^> Appropriate 
display 



To: Initiator (#CIML) 



Diagram 2.18. Overview of Job Initiation and Work Station Release 
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From: Command Processor Input Router (#CPRT) 



INPUT 



Main Storage 



Transient Area: 
#CPRT 



User Area 



CP work area 

JCB 

TUB 

TCB 

TCB chain 

Operator keyed data 




PROCESS 



> 



Ensure job initiation allowed 

Attach work station to active MRT 
program if applicable 

Start initiator if applicable 



=> 




OUTPUT 



XR2-*-CP work area 

TUB 

TCB 

JCB 

MRT data in MRT 
data save area 
(WSWA) 



To: Cleanup (#CMCU) 



DESCRIPTION 



MODULE/ 
ROUTINE 



Call cleanup routine (#CMCU) to issue message: 

• If initiation stopped (TUBSTPJ), issue job initiation stopped by system operator error message (MIC 5534). 

• If terminal in console mode (TUBMCNSL), or if terminal is data terminal (TUBCMDT), issue command not 
allowed error message (MIC 5539). 

Check procedure to see if it is for active multiple requester terminal (MRT) program. 

If not for MRT, go to Q. 

Ensure request valid: 

• Inquiry requester not attempting to attach to a MRT waiting for resources. 

• Inquiry requester not attaching to same MRT. 

Calculate data input length and place in MRT. 

Write input data to MRT data save area (WSWA). 

Update MRT task control block (TCB) fields for active requester count, allocated work station count and task 
invite count. 

If MRT task can not handle another requester (TCBMRTMX), set TUBECM skip flag (TUB$SKIP) off. 

Set MRT TCB address in requester TUB to designate ownership. 

Build action control element (ACE). 

Activate data mode in TUB. 



#CPRT 



#CMCU 



#CPRT 
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DESCRIPTION 



MODULE/ 
ROUTINE 



Post MRT task to accept input from new requester. 

Pass control to cleanup routine (#CMCU) to log input. 

Build initiator attach parameter list. 

Activate data mode in TUB. 

Pass control to supervisor task attach transient (#SVAT) to start initiator (#CIML). 

If attach fails, display error message. 



#CPRT 



#SVAT 
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From: Command Processor Resident Routine (#CPML) 



■ INPUT 



Main Storage 



Transient Area: 
#CPTC 



User Area 



JCB 
SCA 
TCB 
TUB 
TUB chain 




PROCESS 



S> 



Process release request 



C> 




OUTPUT 

JCB 
TUB 



Command display 

or 
Standby display 

or 
Sign-on display 



To: #CPML Via High Level Aids and 

Task-To-Task Communications Router 
(Diagram 2.21) 



DESCRIPTION 



MODULE/ 
ROUTINE 



Jf termination cleanup required prior to release, call initiator with termination hook. 

If test request, call #CCOF. 

If no more job steps: 

O Initialize TUB fields. 

• If restore not required invite display station for Enter key. 

• If any messages to be displayed, call #CCMX. 

• Display command interface. 

• Post tasks which may want this display station. 

• Return. 

If more job steps: 

• If end of outermost procedure, setup hook for initiator to call termination (TUBABTRM). 

• Start initiator. 

• If initiator attach fails, set timer interrupt to retry in 2 seconds. 

• Return. 



#CPTC 



#CPIO 



#CPTC 



#CPIO 



#CPTC 



#CPTC 



Diagram 2.20. Perform RELEASE Function 
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From: Command Processor Resident Router (#CPML) 



INPUT 



Main Storage 



Transient Area: 
#CPTC 



User Area 



TCB 
TUB 
SCA 




PROCESS 



> 



Process task-to-task communications 
Process TUBs for high level aids 
Route for pending system functions 



> 




OUTPUT i 



TCB 

TUB 

Screen save area 

Appropriate user 
or system display 



To: #CPML 



DESCRIPTION 



MODULE/ 
ROUTINE 



If I/O error, 
process it. 

If display station release, 

process it. [See Perform Release Function, Diagram 2.20.) 

If system request, 

process request. (See Process System Request Event, Diagram 2.30.) 

If Attn key: 

• If work station is: 

— Not signed on. 

— In test request mode. 

— Not in data mode. 

— Inquiry disabled. 

— In command reject mode. 

— Already in data mode escape. 

— Running a program which is in termination, 
then ignore Attn key. 

• If the TCB address of the TUB is zero, pend the inquiry and retryjn 2 seconds. (Use control storage 
routine, NUASGN.) 

• If the vertical hold or save/restore interlock is on, pend the inquiry and retry in 2 seconds (NUASGN). 

• If the interrupted task is a SRT: 

— If 1 option is pending, and if SQB count = 0, and if posted because of Attn key, then erase 1 option 
pending and process inquiry. 

— If SQB count = 4, post tasks waiting on disk enqueue. 

— If task owns interlocks, retry Attn key in 2 seconds (NUASGN); otherwise, suspend task. 

— Build an inquiry TUB and work station work area. __^-^ 

— If no resources are available, retry inquiry and go to Q^9. 



#CPTC 



#SVERP 



#CPTC 
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DESCRIPTION 



MODULE/ 
ROUTINE 



• If the Interrupted task is a MRT: 

— If display station not invited, retry inquiry. 

— Indicate TUB to be skipped. 

— Build inquiry TUB. 

— If no resources available, retry inquiry. 

— If implicit invite to TUB or if PRUF (put for read under format) invite, decrease requester and work 
station count. 

M Swap the new TUB and the inquiry TUB: 

• Find the previous TUB on the TUB chain. 

• Lock the TUB chain. 

• Rechain the new TUB to the TUB chain. 

• Unlock the TUB chain. 

• Post other TUB users. 

• If a JCB exists: 

— Free up JCB and FSBs chained to it. 

— FreeupWSWA. 
. — Free up TUB. 

Save the work station display. 

If inquiry option 1 was pending, 
► process 1 option. Otherwise, 
put up inquiry display. 

Return to caller. 

If Help key, 
process. 

Q If console SYSLOG is pending, 
process it. 

If stop pending for any task, and if interlocks are now freed, suspend the task. 

If stop system is pending, and stop is complete, 
process the completed stop. 

If JOBQ detach is pending, 
process next JOBQ task. 



#CPTC 



#CPIQ 



#CPIO 



#CPTC 



#CPIQ 



#CPIO 



#CPTC 



#WDDH 



#CPTC 



#CMCI 



#CPTC 



#CCRT 



#CPTC 



#CCJS 
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INPUT 



From: Input Router (#CPRT) 

m PROCESS 




TUB,TCB,SCA 
Inquiry option I 




OUTPUT 



TCB, JCB, and TUB 



i^ 9 Perform inquiry menu processing functioi 
I I (Diagram 2.23) 

"\ *>* Perform resume function (Diagram 2.24) 



iJ^Menu or Command 
display 



"Z^> User display 





To: Resident Router (#CPML) 



Diagram 2.22. Overview of Inquiry Menu Option Processor and Resume 
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From: Command Processor Input Router (#CMRT) 
INPUT mavm | (p PROCESS ma 





O 



Process option or error opcode 

Process 1 option or opcode requesting 
1 option 

Process Options 2, 3, and 5 

Process 4 option 

Process invalid option 



> 







OUTPUT 

TUB 
JCB 

WSWA 
display 



To: #CPRT 



Diagram 2.23 (Part 1 of 2). Perform Inquiry Menu Function 



DESCRIPTION 


MODULE/ 
ROUTINE 


Q Dequeue inquiry TUB and free. 


#CPIQ 


Resume interrupted program. (See Resume Function, Diagram 2.25.) 




E| If second inquiry, 
issue diagnostic. 

If task does not allow inquiry, issue diagnostic. 




#CMCU 


#CPIQ 


If task is not a MRT, and if the sector queue count is not 0, 




• Pend the inquiry. 




• Resume the task. 




Otherwise, 




• If the JCB and WSWA are already assigned, 
- Gotogft. 

• Otherwise, 




- Assign JCB and allocate WSWA. 

— If no space, issue a diagnostic. 

• If menu active and menu from # LIBRARY, increment format 1 use count. 

• Initialize JCB and WSWA. 

• Call RFINDLIBto 

find each library in the FSBs. 

W£% Put up the command display. 

Q If TUB and TCB = 0, the TCB is a MRT; go toEI(^. 




#CMCU 


#CPIQ 


#FDIOS 


#CPIQ 


$MAFLB 


#CPIO 


#CPIQ 


Indicate to restore command display at termination, and disable inquiry. 
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DESCRIPTION 



MODULE/ 
ROUTINE 



If job is cancellable and not in termination, swap TUBs to remove inquiry: 

• Find the previous TUB on the TUB chain. 

• Lock the TUB chain. 

• Rechain the new TUB to the TUB chain. 

• Unlock the TUB chain. 

• Post other TUB users. 

• If a JCB exists: 

— Free up JCB and FSBs chained to it. 

— FreeupWSWA. 

— Free up TUB. 

• Set up parameter list and pass control to #CCCM. 

If job is in termination and a 2 option was taken, pend the cancel. 

If job is not cancellable: 

• Indicate 2 or 3 cancel in TCB. 

• Process RESUME option (Diagram 2.25). 

^9 Swap TUBs to free inquiry TUB: 

• Find the previous TUB on the TUB chain. 

• Lock the TUB chain. 

• Rechain the new TUB to the TUB chain. 

• Unlock the TUB chain. 

• Post other TUB users. 

• If a JCB exists: 

— Free up JCB and FSBs chained to it. 

— FreeupWSWA. 

— Free up TUB. 

Indicate user display is not active. 

If a 2 option was taken: 

• If task is not in termination and if the MIC in the JCB is zero, move MIC 3721 to JCB. 

If a 3 option was taken, indicate abnormal release in TUB. 

If the program has released the display station, 
process the release. 

Set the no skip flag in TUB. 

If an ACE exists on the complete queue, 

• Requeue it, last-in-first-out, to the complete queue. 

• Dispatch task. 

Otherwise, 

• Post TUB complete. 

• Put release aid in TUB. 

• Return to caller. 

Q If MRT or released work station, issue error. 

Otherwise, set inquiry latch in JCB. 

Process as option 0. (See Diagram 2.25.) 
|Q Build parameter list. 

Pass control to #CMCU to issue error message. 



#CPIQ 



#CPTC 



#CPIQ 
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From: Command Processor Input Router (#CPRT) 
INPUThhhh^ ■ m PROCESS n 



■XR2 
"CPWRK 
Main Storage 



Transient Area: 
#CPIQ 



User Area 



TCB 
JCB 
TUB 
TUB chain 




> 



Process option or resume interrupted 
program 



> 



OUTPUT 



TCB 
JCB 
TUB 

TUB chain 
User display 




To: CP Resident Router (#CPML) 



DESCRIPTION 



MODULE/ 
ROUTINE 



| If status active, call #CCSM. 

End status. 

If menu active and menu is from # LIBRARY, decrement user count on disk. 

If not error resume: 
© Restore display. 
O Swap TUBs to free inquiry TUB: 

— Find the previous TUB on the TUB chain. 

— Lock the TUB chain. 

— Rechain the new TUB to the TUB chain. 

— Unlock the TUB chain. 

— Post other TUB users. 

— If a JCB exists: 

a. Free up JCB and FSBs chained to it. 

b. FreeupWSWA. 

c. Free up TUB. 

If display station has been released, call #CPTC to release. 

IfMRT: 

© If implicit invite to TUB, or invite due to put for read under format: 

— Add 1 to MRT REQ count. 

— Add 1 to work station count. 

• If requester count less than MRTMAX, set on no-skip bit. 

• Have task dispatched. 

• Return to caller. 

IfSRT: 

• If printer readjustment for forms or image is required, assign an RB that causes the resumed task to call #CSIM. 

• Set off task suspend bit in TCB. 

• If suspended due to stop command or error suspend, bypass post; otherwise, post the task out of suspend. 



#CPIQ 



#CCSM 



#CPIQ 



#CPIO 



#CPICL 
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INPUT 



From: Command Processor Input Router 
(#CPRT) Process 

PROCESS 



Main Storage 



Transient Area: 
#CPSP 



User Area 



TUB 




r. 



> 



| Process #CPRT accept errors 
3 Process EOJ release 
3 Process message enter 
E3 Process restore request 
™ Process command key request 



b OUTPUT 



> 




System display 

Parameter lists to 
other transients 



I To: Command Processor Mainline (#CPML) 



Diagram 2.25. Perform Special Command Processing Function 
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DESCRIPTION 


MODULE/ 
ROUTINE 


Q If #CPRT accept error. 

© If sys request or inquiry in high level aid: 

— Set sys request and inquiry to zero. 

— Indicate that TUB is invited. 

— Retry accept. 

££ If restore yes indicator on in TUB: 

• If messages pending, display them. Otherwise: 
put up command display. 

|CJ If messages active, process them. 

m If restore indicated in TUB: 

• If console restore, restore console. 

Handle messages: 

• If work station: 

— If status active, update status display. Otherwise: 

put up command display and post tasks requesting display station. 

Return to caller. 

KJ If command key 1 and if resume pending: 

• Handle option. 

If resume not pending: 

• Indicate key not valid. 

If test request key: 

• If signed on, indicate key not valid. Otherwise, 
attach test request. 


#CPSP 


#CPRT 


#CPSP 


#CCMX 


#CPIO 
or 
#CPIQ 


#CCMX 


#CPSP 


#CMCI 


#CPIQ 


#CCSM 


#CPIO 


#CPSP 


#CPSP 


#CPIQ 


#CPSP 


#WDDH 


#CPSP 


#WDDH 


#CPON 



Licensed Material-Property of IBM 



■INPUT 



c 



From: CP task post processor (#CPTC) 
or 
Inquiry menu processor (#CPIQ) 

PROCESS 



CPWRK 



•-XR2 
TUB 
Main Storage 



SCA 



Transient Area: 
#CPIO 



User Area 



Request code 




r. 



> 



Save work area in RB 

Set up work station data management 
parameter list dependent on request code 

Call work station data management 

Restore work area 



> 




OUTPUT 



System display 



To: Calling Routine 



DESCRIPTION 



MODULE/ 
ROUTINE 



Save 30 bytes of work area (starting at IOCODE) and use this area for work space. 

If clear request, indicate clear opcode. 

If invite request, indicate invite opcode. 

If stop invite request, indicate stop invite opcode. 

If save request, indicate save opcode. 

If restore request, indicate restore opcode. 

If none of the above, indicate put then invite request. 

If not invite, turn Off invite opcode. 

Move work station ID to output area. 

If console mode, set up console index. 

If standby mode, set up standby index. 



#CPIO 
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DESCRIPTION 



MODULE/ 
ROUTINE 



If inquiry mode: 

• Create jobname and workstation ID. ^^ 

• If MRT, set up MRT inquiry index and go toj[J 

If IQB count is not zero, indicate delayed option 1 . 

If noncancellable, indicate delayed option 2, 3, or 5. 

If in termination, indicate a delayed option 2. 

Pass control to #WDSM to display data. 

If I/O error, indicate hex FF in return I/O code. 

If restore command reject, issue clear screen, 
and try restore again. 

Restore CPWRK from RB. 



#CPIO 



Otherwise, point to SRT inquiry index. 



#DWDM 



#CPIO 
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From: Calling Program 



■INPUT 




PROCESS 



Console SYSLOG 
queue element 



User input area 



System request 
indicator 



.^<>* Perform console logical I/O (Diagram 2.28) 

^^* Perform work station logical I/O ZZZZZZ 
| (Diagram 2.29) I 

!^^* Process system request event ZZZZZZZZZIZI 
(Diagram 2.30) 



I 



OUTPUT 



I 



^^> System console 
display 



i> 



Work station 
display 




^> Saved or restored 
display 



To: Calling Program 
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INPUT 



From: Calling CP Transient 

PROCESS 



C 2 

Parameter list 



Main Storage 



Transient Area: 
#CMCI 
#CMCS 
#CMEJ 



User Area 



Console SYSLOG 
queue element 

SCA, TUB, and TCB 

TUB chain 

User text 




r 



> 



J Perform preliminary processing 

| Move elements from SYSLOG queue 
to console disk queue 

3 Display messages at system console 

Q Perform console management end of job 
function as required 



:> 




OUTPUT 



Console image 
matrix 

System console 
display 

TUB 



To: CP Mainline (#CPML) 
or 
Calling Program 



DESCRIPTION 



MODULE/ 
ROUTINE 



H Check system communication area (SCA) error recovery procedure (ERP) indicator 
(SCAMERP) and if on, call control storage error handler (#SVER). 

Assign task work area space. 

Find terminal unit block (TUB) for system console. 

Enqueue the TUB on the console queue. 

► If there are no more messages to be displayed, turn off light. 

Efl Determine if any elements on SYSLOG queue waiting to be moved from user SYSLOG sector to console 
SYSLOG disk queue. 

Find space on SYSLOG disk queue if possible. 

Move element from user SYSLOG sector to console SYSLOG disk queue. 

Free up SYSLOG queue sector for reuse. 



#CMCI 



#SVERP 



#CMCI 



WSIOCH 



#CMCI 



Disk IOS 



#CMCI 
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DESCRIPTION 


MODULE/ 
ROUTINE 


If queue full: 

• Find unprocessed queue element with no wait indicator (CMCINOW) on. 

• Dequeue element with no wait indication. 

• Free queue sector for resue. 

• Post calling program. 


#CMCI 


If 1 DELETE active at system console: 

• Search for write to operator without reply (WTO) element in queue. 

• If WTO element found and space needed: 

— Deallocate SYSLOG queue sector. 

— Dequeue and free disk sector (FIFO). 




If no WTOs to free and queue full, caller must wait for space. 




|(J Find first queue element address. 




Ensure enough lines available or can be rolled off screen to display new data. 




If not enough screen lines or if no more elements on queue, and if console in console mode: 

• Dequeue console queue resource. ^^ 

• If EOJ response indication (CMCI EJR) on in console matrix, go to [J; otherwise, exit to command 
processor mainline (#CPML). 




If this is a new console SYSLOG post: 

• Build work station data management parameter list. 

• Sound audible alarm at console. 

If console not in console mode, or if screen not available, exit to #CPML. 




WSIOCH 


#CMCI 


Load and pass control to console management second half (#CMCS). 

Build work station data management parameter list to consolidate lines at bottom of screen that may be 
overlaid. 

Roll screen. 

If message command queue element (CMCIMSG): 

• Find proper message queue sector. 

• Read in message sector. 

• Update message sector to indicator sector available for reuse. 




#CMCS 


#DWDM 


#CMCS 


If user text sector: 

• Assign message number. 

• Find user sector text. 

• Read in text sector. 




Generate message ID for operator reply. 




Increment message ID control counter byte (SCADMID#). 




Build printer IOB if spool not active, system in single program mode, and log printer active. 
Call work station input output control handler (WSIOCH) to print output data. 
Set up console matrix entries associated with line on screen. 




#CMCU 


#CMCS 


Save line to be displayed on screen in command processor task work area (TWA) line save area. 




Build work station data management parameter list. 
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DESCRIPTION 



MODULE/ 
ROUTINE 



Put display to console display screen. 

Dequeue and free queue element just processed. 

Continue processing elements until queue is empty, screen is full, or element not yet placed in disk queue. 

If queue empty, turn off message light. 

Exit: 

• Free up any assign/free area still owned. ^^ 

• If EOJ response indication (CMCIEJR) is on in console matrix, go to (J; otherwise dequeue on console 
SYSLOG queue, and exit to command processor mainline (CPML). 

Find command processor task work area (TWA). 

Point at in-core matrix. 

Loop through matrix setting off EOJ bits (CMCIEJR). 

Determine message ID fields to be overlayed by '**'. 

Build work station data management parameter list. 

Put '**' over message ID on console display screen. 

Exit to calling program. 



#DWDM 



#CMCS 



WSIOCH 



#CMCS 



#CMEJ 



#DWDM 



#CMEJ 
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INPUT 



r 



From: SYSIN (#CLSS), SYSLOG (#CLSG), 
or SYSLIST (#CLST) 

■i PROCESS 






Parameter list 
Main Storage 



Transient Area: 
#CMWI 
#CMWO 
#CMLS 



User Area 



User input area 

JCB 

TCB 

TUB 




«1'II.MI',I. UI"1I)II '.T 



> 



Accept input data from work station 
keyboard 

Display output data at work station 
display screen for SYS LOG 

| Display output data at work station 
display screen for SYSLIST 



ra OUTPUT ras= 



> 



F"*T 



nmm,"mw»i t 'vw'>i;iw '. 



User requested 
data 

Work station 
display 



To: Calling Program 



DESCRIPTION 



MODULE/ 
ROUTINE 



| Obtain task work area (TWA) space. 

Find requesting work station's terminal unit block (TUB). 
If user invite outstanding, wait for invite end. 

If user display on screen: 

• Build work station data management parameter list to save user display . 
► • Save current format on screen. 

Reset invite and SYSLIST screen active indication. 

If initial call for logical I/O interface: 

• Retrieve user's initial record entered on command display (OCL or procedure statement). 

• Return. 

• Output user's initial record to screen. 

If not initial call for logical I/O interface: 

• Build work station data management parameter list to output logical I/O display. 

• Display logical I/O interface and wait for user's response. 



#CMWI 



#DWDM 



#CMWI 



Disk IOS 



#CMWI 



#DWDM 



#CMWI 



#DWDM 
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DESCRIPTION 


MODULE/ 
ROUTINE 


Process user entered response data: 

• If null data response, blank out input data area. 

• Move user response bytes into work station logical I/O data management input record area and then to 
user's area. 

Roll user response lines off screen input area: 

• Build work station data management parameter list with information to clear screen input area. 

• Roll user entered data out of input area. 

Return control to SYSIN (#CLSS). 
Q If entry is from SYSLIST, go toET 

If write to operator without reply request, 1 DELETE active, and logical I/O display interface not active: 

• Throw away informational message. 

• Return to SYSLOG (#CLSG). 

Wait for user I/O activity to finish. 

If user display active on screen (TUBUSUP): 

• Save work station invite status. 

• Build work station data management parameter list to save user's display. 

• Save user's display. 

• Indicate user screen saved (TUBATTR6). 

If logical I/O interface not active on screen (TUBINPA): 

• If logical I/O interface previously displayed (TUB LI OS): 

— Build work station data management parameter list to restore logical I/O display. 

— Restore logical I/O screen. 

• If logical I/O interface never active for this sign-on (TUBLIOS): 

— Retrieve user's initial OCL or procedure statement. 

— Build work station data management parameter list for initial logical I/O screen. 

— Display screen with first keyed record. 

If second level message to display (CMW02ND): 

• Build work station data management parameter list. 

• Display second level message. 

• Blank out response input area. 

• Read user's option response. 

• Ensure response length valid. 

• If response length error: 

— Retrieve error message text. 

— Build work station data management parameter list. 

— Display error message. 

— Read user's retry response. 

• Move good response to user area. 

• Verify user response valid: 

— If write to operator without reply (WTO), indicate no screen restore. 

— If other valid response, indicate to restore screen. 

• If restore requested: 

— Build work station data management parameter list to restore user screen. 

— Restore screen. 

— Return to calling program. 

Q If call by WTO: 

• Put out blank logical I/O screen. 

• Build work station data management parameter list to display WTO message. 

• Display message. 

• Return to SYSLOG (#CLSG). 


#CMWI 


#DWDM 


#CMWI 


#CMWO 


#CMWO 


#DWDM 


#CMWO 


#DWDM 


#CMWO 


Disk IOS 


#CMWO 


#DWDM 


#CMWO 


#DWDM 


#CMWO 


#DWDM 


#CMWO 


#MGRET 


#CMWO 


#DWDM 


#CMWO 


#DWDM 


#CMWO 


#CMWO 


#DWDM 


#CMWO 
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DESCRIPTION 



MODULE/ 
ROUTINE 



If call to display SYSLOG message, write to operator with reply (WTOR): 

• If SYSLOG halt and not WTO/WTOR: 

— Build work station data management parameter list. 

— Save screen. 

— Sound audible alarm at work station. 

• Build work station data management parameter list to display message. 

• Display halt/WTOR message. 

• If WTO request, return to caller. 

• Read user's response. 

► • Ensure response length valid. 

• If response length error: 

— Retrieve error message text. 

— Display error messgge 

— Read user's retry response. 

• Move good response to user area. 

• Verify user response valid. 

• Roll up WTOR response data. 

• If restore indicated: 

— Build work station data management parameter list to restore screen saved. 

— Restore user's screen. 

— Return to calling program. 

Q If SYSLIST active on screen (TUBSYLST), go toQQ. 
Wait for user I/O activity to finish. 

If user display active on screen (TUBUSUP): 

• Save work station invite status. 

• Build work station data management parameter list to save user's display. 

• Save user's display 

• Reset invite status (TUBATTR3). 

• Indicate user screen saved (TUB ATTR6). 

If call by SYSLIST put: 

• If SYSLIST screen inactive (TUBSYLST): 

— Save logical I/O screen if active. 

— Put out blank logical I/O screen. 

• Build work station data management parameter list to display SYSLIST message. 

• Display message. 

• Return to SYSLIST (#CLST) 



© 



If call by SYSLIST get: 

• Build work station data management parameter list to display message. 

• Display WTOR message. 

• Read user's response. 

• Ensure response length valid. 

• If response length error: 

— Retrieved error message text. 

— Display error message. 

— Read user's retry response. 

• Move good response to user area. 

• Verify user response valid. 

• Blank user response area. 

• Return to calling program. 



#CMWO 



#DWDM 



#CMWO 



#DWDM 



#CMWO 



#MGRET 



#DWDM 



#CMWO 



#DWDM 



#CMWO 



#DWDM 



#CMWO 



#CMLS 



#DWDM 



#CMLS 



#DWDM 



#CMLS 



#DWDM 



#CMLS 



#DWDM 



#CMLS 



#MGRET 



#DWDM 



#CMLS 



#DWDM 



#CMLS 
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From: Command Processor Wait Routine (#CPML) 




OUTPUT 



Saved or restored 
console display 

Saved or restored 
work station display 

TCB chain 



To: Command Processor Wait Routine (#CPML) 



DESCRIPTION 


MODULE/ 
ROUTINE 


[ill If IPL is in progress: 

O |f master console or alternative console, and not already signed on, call #CPTS. Display sign on. 
© Return to caller. 


#CPTC 


#CPTS 


#CPTC 


If IPL not in progress: 

© If not signed on, call #CPTS. Display sign on. 




#CPTS 


© If console in error, call #CPER for error recovery. 




If work station in console mode: 




© If error recovery busy, ignore system request. 

© Issue stop invite to system console. 

© If stop invite failed, ignore system request. 

© Issue save for console display. 

© If work station display was not previously saved: 

- Swap the TUBs. 

— Display the proper system display. 




#CPIO 


#CPTC 


#CPIO 


#CPTC 


#CPIO 


#CPTC 


— Return to caller. 
© If console mode was forced, issue clear unit I/O operation; 
otherwise, restore the saved display. 




#CPIO 


#CPTC 


O Swap the TUBs. 




© If the work station was released, exit to #CPIQ. 




© If a task was active, have it dispatched. 




© If inquiry menu pending, process the inquiry. 




If work station to console: 




© If vertical hold or save/restore interlock, pend the system request. 




© If TUB not owned by command processor, set TUB to be skipped. 

© If TUB owned by command processor, issue stop invite. 

© Swap TUBs. 

© Save work station display. 

© If restore is required, restore console display; otherwise, put up console display. 




#CPIO 


#CPTC 


#CPIO 


#CPTC 


© Indicate to call #CMCI. 




© Return to caller. 
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INPUT 



From: Calling CPTransient 

■i PROCESS 



C 



Parameter list 
Main Storage 



Transient Area: 
#CMCU 
#CPER 



User Area 



SCA 
TUB 
Console matrix 




t> 



Process input data 
Process output data 
Process printer error 



> 




OUTPUT 



History file 

System console 
display 

Work station display 

Printed output 

Console matrix 



To: CP Mainline (#CPML) 
or 
Calling CPTransient 
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DESCRIPTION 


MODULE/ 
ROUTINE 


Q If no input data and no output data to process, return to calling program. 
If no input data (CMCUINP = OFF), go toQ . 

If log input requested (CMCULOG): 

• Build history file put (#HFPUT) parameter list. 

• Place'input data in history file. 

• Build printer I OB if spool not active, system in single program mode, and log printer active. 

• Call work station inputoutput control handler (WSIOCH) to print input data. 

• If printer error, go tojcj . 

If roll screen request (CMCUROL): 

• Find terminal unit block (TUB) for terminal requesting roll. 

• If screen format is menu standby, command, inquiry, sign-on, or status (TUBATTR1): 

— Build work station data management (WSDM) parameter list. 

— Reinvite screen. 

— Return to calling command processor transient. 

If system console and in console mode: 

• Build WSDM parameter list to consolidate lines at bottom of screen that will be overlaid. 

• Roll screen. 


#CMCU 


#HFPUT 


#CMCU 


WSIOCH 


#CMCU 


#DWDM 


#CMCU 


#DWDM 
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DESCRIPTION 



MODULE/ 
ROUTINE 



• Build WSDM parameter list for system console. | #CMCU 

• Modify system console display. #DWDM 

• Return to calling command processor transient. | #CMCU 

£J If message identification code (MIC) number provided (CMCUMIC): 

• Build message retrieve parameter list. 
► • Retrieve message. | #MGRET 

If execution time data to be substituted in message (CMCUMSUB): | #CMCU 

• Scan message looking for # signs. 

• Substitute appropriate characters for # signs. 

If in-core message to be displayed (output switch on and MIC number field=zero), move message to command 
processor work area. 

If log output request (CMCULOG): 

• Build history file put (#HFPUT) parameter list. 

• Place input data in history file. | #HFPUT 

Find output terminal TUB address. I #CMCU 

If screen format is standby, command, Inquiry, menu, sign-on, or status (TUBATTR1 and TUBATTR2): | #CMCU 

• Build WSDM parameter list. 

• Display messages. j #DWDM 

Build printer IOB if spool not active, system in single program mode, and log printer active. | #CMCU 

Call WSIOCH to print output data. WSIOCH 

If printer error, or if console only bits, go to £J . | #CPER 

If request to show to console also (CMCUSWS) : I #CMCU 

• Find space in disk queue for message if possible. 

• Place message in disk queue sector. 

• Build console queue element. 

• Place queue element on console SYSLOG queue. 

• Post console SYSLOG. 

If system console and in console mode (TUBATTR2): 

• Build WSDM parameter list to consolidate lines at bottom of screen that will be overlaid. 

• Roll screen. I #DWDM~ 

• Build WSDM parameter list for system console. #CMCU 

• Put appropriate screen to system console. #DWDM 

• Build printer IOB if spool not active, system in single program mode, and log printer active. | #CMCU 

• Call WSIOCH to print data if IOB built. 

• If printer error, go topi. I #CPER 

Return to calling command processor transient module. #CMCU 

£J If printer error: | #CPER 

• Find space in disk queue for message if possible. 

• Place message in disk queue sector. 

• Build console queue element. 

• Place queue element on console SYSLOG queue. 

• Post console SYSLOG. 

• Issue reset operation to the printer through WSIOCH. 

• Reset any error condition indicators in printer TUB. 

Return to calling program. 
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From: Calling Program 
Essonm ■ m PROCESS 




c 



> 



Parameter list 
Main Storage 



Transient Area: 
#PRSD 



User Area 



Security file 
address 
Security file 
VTOC 
Security file 
data sector 
User ID and 
password 
pointer 



Perform security initialization if required 
Perform normal sign-on security check 



■i OUTPUT 



> 



^XR2 

Parameter list 

• Completion 
code 

• User security 
class 

• I/O area address 



EQE 




■BHa 




faanaa 



Mnsmsmmam 



To: Calling Program 



DESCRIPTION 


MODULE/ 
ROUTINE 




Bfl Check security initialization flag (SCAMSFLG); if not on, go to^|. 


#PRSD 




If user ID and password are special values, and if the user is at the system console: 






O Permit sign-on. 






• Set normal return code (PRSFNML). 






• Make current user master security officer. 






• Return to calling program. 






Build VTOC read parameter list. 
► Read security file format 1 from VTOC. 
If no security profile exists: 






@CSVF 


s 


#PRSD 




• Set security profile lost return code (PRSFLST). 






• Return to calling program. 






Initialize security data in system communication area (SCA). 






£j Initialize search buffer: 






• Clear buffer to X'FF'. 






• Put user ID in first 8 bytes of each 64-byte record in search buffer. 






Build disk IOB for security file disk scan operation. 
Search security file for user ID. 






Disk IOS 
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DESCRIPTION 



MODULE/ 
ROUTINE 



If disk scan not successful or successful but desired record not in scan buffer: 

• Set not found completion code (PRSFRNF). 

• Return to calling program. 

If search successful-scan hit ($FDSCEQ) and record found in scan buffer: 

• If incorrect password given: 

— Set bad password completion code (PRSFBPW). 

— Return to calling program. 

• If correct password given: 

— Set normal completion code (PRSFNML). 

— Move security class to output area. 

— Return to calling program. 

If I/O error occurs on disk scan: 

• Set I/O error return code (PRSFIOR). 

• Return to calling program. 



#PRSD 
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From: Command Processor Mainline (#CPML) 



INPUT 



c 



XR1 

TUBorERB 
Main Storage 



Transient Area: 
#SVERP 



User Area 



1 r PR 



Scan ERB and TUB queue 






i> 






Process I/O error request 








Call appropriate I/O transient 




1 
i 
j 




























uri'i, 





in OUTPUT c 



> 



To: (#CPML) 



Message displayed 

Response 
processed 

I/O transient 
called 



DESCRIPTION 



MODULE/ 
ROUTINE 



Scan the ERB and TUB chains to check for error conditions: 
© ERB busy on. 
© ERB done off. 
© I/O error flag on. 

If not error conditions found, return to caller. 

If request is for message at system console: 

© Prepare space for message in console SYSLOG area on disk. 

© Build message in the command processor work area: 

— Push current work area to disk. 

— Get format line. 

— Get no message found message. 

— Get message for MIC#. 

© Write message buffer to history file and to console SYSLOG sector on disk. 

© Place message on console SYSLOG queue. 

• Restore command processor work area. 

• Return to #SVERP. 
© Gotojcl- 

If request is wait for response: 

• If work station error is being processed, pass control to #SVWSR (Diagram 2.35). 
© If 3 option taken, point task IAR at the EOJ SVC in system communications area. 

© If D option taken, point task IAR at the Dump SVC in the system communications area. 
© Go to Bel. 

If request is purge message: 

© Search the console SYSLOG queue for any I/O messages that have been built but not displayed; also 
search display station matrix. 

• Remove message, if found. 



#SVERP 



#SVWER 



#MGRE 



#HFPUT 



#SVWER 



#SVERP 



Diagram 2.33 (Part 1 of 2). I/O Error Recovery 



Method of Operation 2-69 



Licensed Material— Property of IBM 



DESCRIPTION 



MODULE/ 
RESPONSE 



If request is for I/O error recovery: 

• Mark ERB as done. 

• If workstation error is being processed, pass control to #SVWSR (Diagram 2.35). 

• If the ERB request was for printer error recovery: 

— If the no response required flag (ERBMNRSP) in the printer TUB ERB is on, 
clear the error by issuing a clear command to the printer. 

— If the no response required flag is off, and if the printer TUB is for a display station printer: 

a. Set forms length. 

b. Set graphic error action. 

c. Set forms width. 

• If other printer error, or other I/O device error is being processed, call applicable control storage error 
recovery transient. 

• GotoO. 



#SVERP 



#SVPRE 
Ptr IOCH 
#SVPRE 
Ptr IOCH 



#SVERP 
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■ INPUT 



From: I/O Error Recovery (#SVERP) 
m PROCESS 



C XR1 

TUB in error 
exception status 

Main Storage 



Transient Area: 
#SVWSR 



User Area 



ERB control byte 




r 



OUTPUT 



> 



Do error recovery 
Handle error message sent 
Process message response 
Process second error 
Process ready interrupt 



:> 



■ 1 



Operator message 
Restored ERB 



To: #SVERP 



DESCRIPTION 



MODULE/ 
ROUTINE 



© 



If called to do error recovery, determine class of error: 

• If resources temporarily unavailable: 

— If work station is not ready, exit to display station error recovery for device not ready (Diagram 2.36). 

— If error is read to unlocked keyboard by command processor: 

a. Free TP buffer. 

b. Post command processor. 

c. Clear ERB. 

d. Reset/invite keyboard. 

e. Return to caller. 

— If device is in error mode or powered off: 

a. Set ha rdw are error. 

b. GotoBB <f » V 

— If device is operational: 

a. Set pr ogra mming error. 

b. GotoQ^fe. 

• If programming error: 

— Free TP buffer. ^^ 

— If command processor caused error, reclassify error as hardware and go toMW. 

— If user program caused error: 

a. If TUB in error is being released, pend error until release has completed. 

b. Suspend user task or pend suspension. 

c. Recycle error if not already done. 

d. If programming error on master console, force console mode. 

e. Set 2 and 3 options allowed. 

f. Set up ERB to send message. 

g. Return to caller. 
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If hardware error: 

— Free TP buffer. 

— If error occurred while processing inquiry: 

a. Recyc le (s ave) error, if not already done. 

b. Gotog||@. 

— If TUB owned by user: 

a. If format has been put to TUB, go to 

b. Otherwise: 
© Clear ERB (ignore error). 
© Return to caller. 

— If TUB owned by command processor: 

a. Recycle error if not already done. 

b. If TUB is not signed on: 

• Set informational message flag. 
© If TUB is the system console: 

— Set on console check. 

— Clear ERB. 

— Return to caller. 
© Otherwise: 

— Set up ERB to send message. 

— Return to caller. 

c. If TUB in error is not the system console: 
© Set up ERB to send 1,3 halt message. 

© If TUB is an inquiry TUB, set up ERB to send 1 , 2, halt message. 
O Set up ERB fields to send message. 
© Return to caller. 

d. If console error is due to a recovery attempt, go to | 

e. Otherwise: 
© Wait 7 seconds unless entered due to SYS/REQ sequence. 
O Reset ERB and attempt to clear screen. 
© If clear fails, go toj 
O Otherwise: 

— If error occurred during I PL: 

a. Set off console check. 

b. Clear ERB. 

c. Return to caller. 

— If STATUS display was active at time of error: 
a. Update or end STATUS. tmmjf^. 

— b. If update was performed, go toi01f}|ffi. 

— Determine console mode at time of error: 

a. If in forced console mode (error occurred while running user program) 
© If console screen was previously saved, resto re co nsole interface. 

© Otherwise, put up console display and go topOqfift 

b. If in console mode: 
O Rebui ld co nsole display 
© G <>to|5|@. 

c. If in command or other mode: 
© Put up last system display. 

© Go to^ 

— If recovery succeeded: 

a. Set off console check. 

b. If console mode was not forced, set up ERB to send message. 

c. Otherwise, clear ERB. 

d. Return to caller. 

— If recovery failed: 

a. Set up ERB to allow SYS/REQ. 

b. Set on console check. 

c. Free TP buffer. 

d. Return to caller. 



#SVWSR 



#CCSM 
#SVWSR 



#CCCO 
#SVWSR 



Diagram 2.34 (Part 2 of 4). Perform Display Station Error Recovery 
2-72 

Licensed Material— Property of IBM 



DESCRIPTION 



MODULE/ 
ROUTINE 



o 



If message sent does not require a response: 

• Initialize ERB. 

• Return to caller. 

Otherwise: 

• If message was not due to a hardware error on the system console: 

— Set waiting for response in TUBERPCT. 

— Clear error aid (TUBERAID = 0). 

— Return to caller. 

• If message was sent due to a hardware error on the system console: 

— Put console TUB on vertical tubchain. 

— Mark TUB as console mode forced. 

— GotoQQ. 

If message response for a TUB owned by a user: 

• Post TUB complete with error. 

• If 2 option taken, unsuspend user task. 

• If 3 or D option taken, 
ABTRM the task and clear ERB. 

• Return to caller. 

If message response for a TUB owned by the command processor: 

• If option 1 taken: 

— Clear ERB. 

— Attempt to clear screen in error. 

— If clear screen failed, return to caller. 

Otherwise, try to put up last system display or, if status was active, 
refresh STATUS display. 
If option 2 taken: 

— Copy ERB of inquiry TUB to next TUB on horizontal chain. 

— Perform pseudo resume of interrupted task. 

— Rechain interrupted TUB. 

— Free inquiry JCB,WSWA, and TUB. 

— Goto||Q. 

• If option 3 taken: 

— Sign off work station. 

— Clear ERB. 

— Return to caller. 

Set up ERB to get MIC. 

Call control storage transient to get message ID. 

GotoQ. 

If ready is pending, go toK?l «^ . 

If ready function is in progress (reject and ready occurred while processing a previous reject): 

• Post TUB complete in error. 

• Clear ERB. 

• Return to caller. 

Otherwise: 

• Set ready in TUB. 

• If ready task not needed (TUBTCB not 0) : 

— PIQACE. 

— Post TUB complete. 
* — Return to caller. 
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• Otherwise: 

— If command processor owns TUB: 

a. If error occurred during Sys/req — Enter sequence: 

• Set off reject/ready indicators. 

• Set command processor aid to SYS/REQ. 

• Clear ERB. 

• Return to caller. 

b. Otherwise: 

• If a read command was rejected: 

— Reset TUB to invite status. 

— Clear ERB. 

— PIQACE. 

— Post TUB invite complete. 

— Return to caller. 

■J Build attach parameter list. 
Attach ready task. 
If attach was successful, clear ERB. 
Otherwise, set ready pending. 
Return to caller. 
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From: Keyboard Work Station Error Recovery (#SVWSR), or 
Work Station Data Management Modules 



INPUT 



c 



XR1 

TUB in error excep- 
tion status 



C 2 

Work station data 
management 
parameter list 

Main Storage 



Transient Area: 
#SVNRY 



User Area: 
#SVRD 




PROCESS 



> 



H Process reject in ready 
3 Process ready call 
gj Build reject record header 
Q Write reject header and data 
™ Set waiting for ready 



> 




OUTPUT 



TUB fields 
Reject file 



J A 

To: Caller 



DESCRIPTION 



MODULE/ 
ROUTINE 



If processing a reject in ready function: 

• Zero TUB completion code. 

• Set up ERB to wait for ready. 

• Free TP buffer if required. 

• Return to caller. 

If processing a ready call: 

• Initialize ERB. 

• Perform ready function: 

— Push user and load #SVRD. 

— Save invite status. 

— Move all reject records for TUB to display screen via #DWDM. 

— Restore invite status and call #SVUR. 

— Pull user into main storage. 
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If command reject: 

• Build command reject record header. 

— Save the following fields which may be part of the reject header: 

a. TUBCMND — command code. 

b. TUBCMOD — command modifier. 

c. TUBCOUNT- data transfer count. 

d. Work station data management parameter list. 

— Determine type of reject record: 

a. If rejected command is invite/cancel: 

• Set header type as invite/cancel . 

• Set re cord length equal to header length. 

• GotoQ. 

b. If rejected command is read input or read screen go toQ . 

c. If rejected command is save table, save screen, restore table, or restore screen: 

• If required, recycle error. 

• Set header type to save/restore. 

• Set record length equal to header length. 

• Save SS ad dress of save restore area. 

• GotoQ. 

d. If rejected command is output and not a restore operation: 

• Recycle error if required. 

• If rejected command is to be saved as an output type 1 : 

— Save TUBCTSAV (saved input length). 

— Set header type to output type 1 . 

— Set le ngth of record equal to header length plus length of data (TUBCOUNT). 

— GotoQ. 

• If rejected command is to be saved as an output type 2: 

— Set header type to output type 2. 

— If indicators present, save indicators in reject header. 

— Set length of record equal to header length plus length of output data (WDOUTL). 

Determine if reject record is to be written: 

• If reject is being recycled: 

— Free up TP buffer if required. 

— Return to caller. 

• If reject command is read type: 

— Zero TUB completion code. 

— GotoQ. 

• If this is first command reject, initialize reject file current sector and relative displacement. 

• Calculate space remaining in reject file. 

• If reject record will fit in file: 

— Update reject file current sector and relative displacement. 

— Write out reject record header and any data. 

— Post TUB complete. 

Set up ERB to wait for ready: 

• If first command reject, set up ERB to wait for ready. 

• Free TP buffer if required. 

• Return to caller. 
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Program Organization • Special command processor 

Figures 2-3 through 2-32 show the control flow for the • Command processor/work station data management 

command processor functions. They are: interface 

• Router • Console management 

• Sign-on • Cleanup 

• Command processing • Password security 

• Job initiator • Work station error recovery 

• High level aids and task-to-task communications 

• Inquiry and resume 
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INQ 
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HELP 
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JOBQ EOJ 
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INQ 1 option 
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Event is: 



• Invite op-end 



Name Purpose 

#CCAS ASSIGN command processor 

#CCCM CANCEL command processor 

#CCHO CHANGE, HOLD, RELEASE spool commands 

#CCJQ Input job queue transient 

#CCJS Input job queue command processor 

#CCMG MSG command processor 

#CCMU MENU command processor 

#CCOF OFF/MODE command processor 

#CCPY PRTY command processor 

#CCRE REPLY command processor 

#CCRT STOP/START command processor 

#CCSM STATUS command mainline 

#CCTD TIME and date command processor 

#CMCI Console management routine 

#CMCU Cleanup routine 

#CPIQ Inquiry menu processor 

#CPML Wait routine 

#CPON Signon transient 

#CPRT Router/initiator routine 

#CPSP Special command processor 

#CPTC High-level aids and task-to-task 

#SVERP I/O error recovery 

#SVWSR Command reject processor 

#WDDH Help key processor 



Figure 2-3. Router Control Flow 
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• HOLD, RELEASE 
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Figure 2-4. Command Processor Sign-on Control Flow 
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Figure 2-5. ASSIGN and VARY Command Processing Control Flow 
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Figure 2-6. CANCEL Command Processing Control Flow 
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Figure 2-7. CHANGE and JOBQ Command Processing Control Flow 



Command 
Processor 
Input 
Router 
(#CPRT) 



CONSOLE 
Command 
Processor 

(0CCCO) 



4 



T~ 



Work Station 

Data 

Management 

(#DWDM) 



Cleanup 
Routine 



(#CMCU) 



Figure 2-8. CONSOLE Command Processing Control Flow 
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Figure 2-9. HOLD and RELEASE Command Processing Control Flow 
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Figure 2-10. IDELETE Command Processing Control Flow 
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Figure 2-11. MENU Command Processing Control Flow 



Program Organization 2-83 



Licensed Material— Property of IBM 



Command 
Processor 
Input 
Router 
WCPRT) 



MSG 

Command 

Processor 

(#CCMG) 






MSG 

Command 

Show 

Routine 

(#CCMX) 



■ Display 
' Message ' 



Work Station 

Data 

Management 

(#DWDM) 



I Print 
Message 



J~ 



Cleanup 
Routine 



WCMCU) 



Cleanup 
Routine 

(#CMCU) 




Command 

Processor 

Mainline 

(#CPML) 



Figure 2-12. MSG Command Processing Control Flow 
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Figure 2-13. MODE and OFF Command Processing Control Flow 
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Figure 2-14. PRIORITY Command Processing Control Flow 
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Figure 2-15. REPLY Command Processing Control Flow 
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Figure 2-16. START, STOP, and RESTART Command Processing Control Flow 
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Figure 2-17. STATUS Command Processing Control Flow 
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Figure 2-18. TIME Command Processing Control Flow 
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Figure 2-19. Job Initiator Control Flow 
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Figure 2-20. Release Control Flow 
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Figure 2-21. High-Level Aids and Task-toTask Communications Control Flow Program Organization 
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Figure 2-22. Inquiry Menu Processing Control Flow 
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Figure 2-23. Resume Function Control Flow 
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Figure 2-24. Special Command Processor Control Flow 
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Figure 2-25. Command Processor/Work Station Data Management Interface Control Flow 
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Figure 2-26. System Console Logical I/O Interface Control Flow 
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Figure 2-27. Work Station Logical I/O Interface Control Flow 
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Figure 2-28. System Request Processor Control Flow 
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Figure 2-29. Cleanup Routine Control Flow 
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Figure 2-31. I/O Error Recovery Control Flow 
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Figure 2-32. Display Station Error Recovery Control Flow 
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Chapter 3. Starting a Job 



Introduction 

The functions needed to start a job are: 

• Initiator 

— Reader/interpreter 

— Disk file initialization 

— Program initialization 

• Allocate 

— Normal allocate 

— Special allocate 

— Deallocate 

• Open 

— Common- 1 

— Disk 

— Work station 

— Diskette 

— Common-2 

— Printer 

— Data communications 



INITIATOR 

The initiator performs three functions: 

• Reader/interpreter 

• Disk file initialization 

• Program initialization 

The reader/interpreter function reads, diagnoses, and inter- 
prets operational control language (OCL) statements sup- 
ported by the system. The reader/interpreter function 
uses the initiator mainline phase, OCL statement processors, 
and error handler phase. For improved performance and 
better diagnostics, the mainline module performs more than 
one function. The reader/interpreter function checks each 
statement for valid parameters and stores appropriate data 
for use by the system in processing jobs. If an invalid 
parameter is encountered, the initiator error handler rou- 
tine is called to issue the proper message identification 
code (MIC). 



The disk file initialization function prepares disk files for 
program processing. Information provided by the FILE 
OCL statements is used to build the disk file format 1 's. 
When file initialization is complete, control is returned to 
the interpreter mainline to read and process the next OCL 
statement. 

The program initialization function performs the steps 
required to load and pass control to the program specified 
on the LOAD OCL statement. The requested program may 
reside in the designated user library, and if used, this library 
is searched first for the program. If the requested program 
is not in the designated user library, the system library is 
used. If the program requires source (program products), 
the program initialization function allocates and opens the 
required work files. The program initialization function 
is completed by calling the supervisor attach transient 
which loads and passes control to the requested program. 



Reader/Interpreter Function 

The initiator mainline module (#CIML) is loaded by either 
the command processor (when starting a new job), step ter- 
mination (when starting a new step within a job), or release 
(when returning to a procedure from a multiple requester 
terminal (MRT) program or a released program). It is 
loaded into the user area at main storage logical address 
X'C800\ The first sector of #CIML is the initiator work 
area (IWA). The mainline program follows the IWA and 
starts at main storage logical address X'C900\ 

The initiator mainline (#CIML) calls SYSIN (#CLSS) to 
read a statement. #CIML then performs preliminary syntax 
checking of the statement and, if necessary, encodes the 
parameters. 
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If the statement format is: //VERB 
KEYWORD1-PARM1,KEYWORD2-PARM2,«»«#CIML 
encodes the statement in the initiator work area before 
calling the appropriate statement processor. The encoded 
statement format is: 



A 


B 


C 


D 


E 


F 


o«* 


G 



where: A is control bit 1 * 

B is the length of parameter 1 

C is parameter 1 

D is control byte 2 

E is the length of parameter 2 

F is parameter 2 

G is the end of encoding indicator (X'FF') 
*Each keyword is assigned a unique control byte 



Based on the verb found in the statement, the appropriate 
initiator routine (statement processor) is loaded at main 
storage logical address X'F800' and given control (see Fig- 
ure 3-2 for initiator logic flow). 

The initiator error handler (#CIER) is called to handle 
errors detected by #CIML or the statement processor 
modules. #CIER is loaded at main storage logical address 
X'F800'. It checks the error code placed in the initiator 
work area by the calling routine. #CIER matches the 
error code to a message identification code (MIC) and 
issues the proper message. 

If no errors are detected by the statement processor, con- 
trol returns to #CIML via a branch instruction to read the 
next statement. 



Hexadecimal 




Hexadecimal 




Control 




Control 




Byte 


Keyword 


Byte 


Keyword 


01 


NAME 


10 


USER1 


02 


LABEL 


11 


USER2 


03 


DISP 


12 


LINES 


04 


UNIT 


13 


FORMSNO 


05 


DATE 


14 


COPIES 


06 


RECORDS 


15 


DEFER 


07 


LOCATION 


16 


ALIGN 


08 


RETAIN 


17 


SPOOL 


09 


BLOCKS 


18 


PRIORITY 


0A 


PACK 


19 


DEVICE 


0B 


SOURCE 


1A 


MRTMAX 


OC 


INLIB 


1B 


SIZE 


0D 


OUTLIB 


1C 


NEP 


0E 


PROGRAM1 


1D 


OFFSET 


OF 


PROGRAM2 


1E 


DATA 




< 


1F 


SYMID 






20 


REQD 






21 


RESTORE 






22 


LINE 






23 


RELEASE 






24 


PRINT 






29 


MEMBER 






2A 


FORMAT 



In the above example, if KEYWORD1 has a control byte of 
X'OT and KEYWORD2 has a control byte of X'02', the 
encoded statement is: 



01 


05 


PARM1 


02 


05 


PARM2 


•eo 


FF 



All syntax and punctuation checking is done by #CIML. 
The statement processor modules use the encoded state- 
ments in the indicator work area to check parameter 
validity and process the parameters. 



The statement processors are not concerned with continua- 
tion statements. #CIML reads statements until all continua- 
tion statements are read and then calls the appropriate 
statement processor. For example, if the following OCL 
statements are entered: 

(1) //LOAD#RPG 

(2) //COMPILE SOURCE-PROG1, 

(3) //INLIB-LIB1, 

(4) //OUTLIB- LI B2 

(5) //RUN 

the LOAD statement processor (#CILD) is called after 
statement (1 ) is read. The COMPILE statement processor 
(#CICM), however, is not called until statements (2) 
through (4) are read by #CIML. The RUN statement 
processor (#CIRN) is called after statement (5) is read. 

When a LOAD statement is received, a find is performed for 
the module in the library. If it is not found, an error mes- 
sage is issued, thus providing early diagnostics. On previous 
systems, the module was not found until the RUN state- 
ment was read. If the module is found, the directory entry 
is saved in the initiator work area for use by the RUN state- 
ment processor to load the requested module. 

When a FILE statement is received, its syntax is completely 
checked. All file initialization (such as checking the disk 
VTOC) is performed at the time the FILE statement is 
received, thus providing early diagnostics. Taking a 1 
option allows the user to reenter the statement if necessary. 
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When a RUN statement is received, #CIRN overlays the 
mainline module since the user's program is about to 
receive control and no more OCL statements need to be 
read. #CIRN processes the RUN statement, performs all 
program initialization (such as checking for source and 
setting up $WORK and $SOURCE files), and finally calls 
the supervisor attach transient (#SVAU) to load and pass 
control to the requested program. 



System Interlocks 

The System/34 multitask environment requires system 
interlocks to prevent the simultaneous use of certain system 
resources by two or more active tasks. 

The interlocks are: 

• Initiation/termination 

• VTOC (includes main storage F1's) 

• Format 5 



If the unit specified in the file statement is disk, the file 
initialization routine examines the file specification block 
(FSB) chain. If the file is already on the FSB chain, the 
format 1 for that file is used. If RETAIN- J was specified 
on the file statement, the file initialization routine either 
creates a new format 1 for the file or uses the RETAIN-J 
format 1 created by a previous step. If the file is being 
used by another task, and the file is sharable, the existing 
format 1 is used. 

The initiator VTOC routine (#CIVT) is called if the file, is 
not on the FSB chain, not retain J, and not being used by 
another task. #CIVT examines the disk VTOC trying to 
locate the file. If the file is found in the VTOC, the VTOC 
format 1 is added to the format 1 chain and a hew FSB is 
added to the FSB chain. If the file is not found in the 
VTOC, an indicator in the previously built format 1 is set, 
indicating a new file, and this format 1 is added to the FSB 
chain. 

When file initialization is complete, control is returned to 
the initiator mainline to read the next OCL statement. 



• Program dedication interlock 

• Procedure name 

• History file 

• Console SYSLOG 

The initiator obtains these resources by setting the inter- 
locks in the TCBs. For locations of the interlocks, see Task 
Control Block and Queue Header Area in the Data Areas 
Handbook. 



Disk File Initialization Function 

Afterthe initiator mainline file routine (in #CIML) processes 
the file statement and builds the format 1 , control is passed 
to the initiator mainline file initialization routine (also in 
#CIML). 

The file initialization routine examines the format 1 built 
by the file statement processor and if the unit specified is 
diskette, file initialization merely moves the format 1 to the 
active format 1 area (AFA). 



Program Initialization Function 

The RUN statement processor (#CIRN) is called when the 
initiator mainline encounters the RUN statement. #CI RN 
coordinates the program initialization function. 

After placing the program date in all new disk format 1s, 
#CIRN examines the directory information placed in the 
initiator work area (IWA) by the LOAD statement proces- 
sor. If the requested program requires source information, 
#CIRN calls the allocate function to allocate $SOURCE, 
$WORK, and $WORK2 files as required. After the files 
are allocated, #CI RN calls the disk open transient to open 
the files. 

If a COMPILE* statement was entered, #CIRN calls SYSIN 
to read source statements from the keyboard and then 
calls disk data management to place the statements in the 
$SOURCE file. A compiler information block (CIB) is 
then built in the assign/free area. File information such as 
begin extent, end of data, and device code is placed in the 
CIB for use by the compiler. 
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If the requested program is part of a procedure, the proce- 
dure parameter save area (PPSA) contains pointers needed 
to continue with the next step after the requested program 
finishes processing. For this reason, #CIRN writes the 
PPSA buffer in the PPSA on disk to save the information 
for future use. 

All required disk files are enqueued and work stations 
acquired. The requester work station is released if an 
ATTR statement with RELEASE-YES was specified. 

The last step performed by the program initialization func- 
tion is to load and pass control to the supervisor attach 
transient (#SVAU). #SVAU ensures that there is enough 
main storage space available to prevent the requested pro- 
gram from being permanently swapped out when it is 
loaded. After ensuring that another task will not be per- 
manently swapped out, #SVAU loads and passes control 
to the requested program. 



ALLOCATE 

Allocate consists of three functions: 

• Normal allocate controls the assignment of disk space, 
devices, and disk files to the user program. Normal 
allocate is the only allocate function that can be called 
by a nonprivileged user. 

• Special allocate allows a privileged user to allocate disk 
files without file OCL statements. 

• Deallocate allows a privileged user to deallocate printer 
and disk files. The process is similar to file deallocation 
at step termination time. Deallocate also allows freeing 
part of a file's disk space. 

Normal allocate, special allocate, and deallocate are main 
storage transients and each is called by an SVC command 
with a different request indicator byte (RIB). 

Input to the allocate function is passed by way of preopen 
DTFs. See the Data Areas Handbook for a description of 
preopen DTFs. In addition to the normal DTF fields, 
special allocate and deallocate use additional fields in the 
preopen disk DTF. The special allocate fields overlay the 
normal disk DTF fields starting at label $F1NXR. The 
deallocate DTF is based on a closed disk DTF. A single 
request byte at label DTFSR2 (request byte 2) of the 
special allocate DTF specifies the desired deallocate opera- 
tion. If part of a file's disk space is to be freed, the new 
end extent can be specified in the DTF. 



Normal Allocate 

When allocate is required, the user program passes control 
to the allocate mainline transient (#CAML). 

#CAML processes each preopen DTF in the chain that is 
not conditioned off by UPSI. If a diskette file is to be 
allocated or if keysort is required, #CAML passes control 
to the allocate push/pull transient, #CAPS (see Figure 3-3 
for normal allocate control flow). 

#CAPS determines which allocate functions are required. 
If diskette allocate (#CAR1) or keysort interface (#CAKS) 
is required, #CAPS pushes a portion of the user area for use 
by #CAR1 or #CAKS. All normal allocate modules except 
#CAR1 and #CAKS are main storage transients. 

#CAKS, keysort interface, runs in the first 2K of user 
storage. When keysort is required, allocate push/pull 
(#CAPS) pushes the user program to disk and loads 
#CAKS into the first 2K of a 14K region. #CAKS then 
loads the keysort program into the remaining 12K of 
user area. 

#CAR1, the diskette allocate module, runs in the first 4K 
of user storage. When diskette files are allocated, allocate 
push/pull (#CAPS) pushes the user program to disk, sets 
up a 4K region, moves the diskette DTF to the beginning 
of the user area, and loads #CAR1. After diskette files 
are allocated or keysort runs, control returns to #CAPS. 
#CAPS pulls the user program back from disk to main 
storage and updates the necessary DTFs. 

#CACM is called if data communications DTFs are to be 
allocated. #CAPT is called if printer DTFs are to be allo- 
cated. #CAF1 is called if new disk files are to be allocated. 

#CAF2, the find disk space transient, is called by #CAF1 to 
find space in the format 5 area. 

#CAF3, the load to old disk file allocate transient, is called 
by #CAF2. If load to old but not new disk file allocate is 
requested, #CAF3 is called by #CAML, #CACM, #CAPT, or 
#CAPS (see Figure 3-3). 

Control is returned to the user program after all devices 
and files are allocated. 
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Special Allocate 

A privileged user can allocate a disk file without supplying 
an OCL statement by passing control to special allocate 
(#CAS1 ). See Figure 3-4 for special allocate logic flow. 

#CAS1 builds and queues a format 1 and a file specification 
block (FSB) for each disk file to be allocated. If any files 
were successfully processed to this point, special allocate — 
first pass (#CAS2) is called. 

#CAS2 performs first pass processing of all preopen disk 
DTFs in the chain. If keysort is required, #CAS2 passes 
control to the allocate push/pull transient (#CAPS). 

#CAPS performs the same function as for normal allocate. 
If new or load to old disk files require allocation, #CAPS 
passes control to new file allocate (#CAF1). If only load 
to old disk files need allocation, #CAPS passes control 
directly to load to old disk file allocate (#CAF3). 

#CAF1 and #CAF3 may, if #CAPS was not used, be called 
directly by #CAS2. 

Control is returned to the user program after requested disk 
files are allocated. 



#CAD3 updates the format 5s as required and returns con- 
trol to the user program. If #CAD3 is not required, #CAD2 
returns control to the user program. 



OPEN 

The purpose of open is to prepare for the transfer of data 
to and from the program's files by: 

• Initiating all necessary DTF fields in preparation for 
data transfer 

• Assign buffers and lOBs for data transfer 

• Prepare the device for I/O operations to a new data 
file 

The open function is performed by two common open 
transients (#DMOP and #DMOF) and the necessary device 
oriented open transients: 



Disk Open 
Work Station Open 
Diskette Open 
BSC Open 



#DD10Pand#DD20P 

#WDOPN 

#DROP 

#BSOB 



Deallocate 

When a privileged user requests the deallocate function, 
control passes to deallocate premainline (#CAD1 ). (See 
Figure 3-5 for deallocate logic flow.) 

#CAD1 performs first pass processing of all DTFs in the 
chain. If the deallocate request is for a nondisk device, 
#CAD1 deallocates the device and returns directly to the 
user program. If keysort is required, #CAD1 passes control 
to the allocate push/pull transient (#CAPS). 



All open modules are transients and reside as load modules 
in the system library. The open function is initiated by 
issuing an SVC with the open RIB (X'02') and index regis- 
ter 2 pointing to the first DTF on the DTF chain. The SVC 
processor loads the first common open module (#DMOP). 

To improve system performance, the device oriented mod- 
ules are designed to be called only once for each DTF 
chain. Thus, each module performs its functions for all 
required DTFs on the chain. It searches through the DTF 
chain to find all DTFs of its device type that are to be 
opened. 



#CAPS perform the same function as for normal allocate. 
When used for deallocate, however, #CAPS calls deallocate 
mainline (#CAD2). 



Note: See the Data Areas Handbook for a description of 
disk, diskette, and printer preopen and postopen DTFs. 



#CAD2 continues processing DTFs, freeing file space, and 
deallocating files as required. If format 5s are to be 
updated, #CAD2 passes control to the free format 5 space 
transient (#CAD3). 
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Common Open 1 (#DMOP) 

The first common transient (#DMOP) searches the DTF 
chain and flags DTFs to be opened. For open to be per- 
formed, a DTF must have a valid device type, it must be 
allocated, the UPSI setting must be correct, and it must 
be in a preopen state. #DMOP will then call one of the 
following open transients: 

• #DD10P if a disk DTF is on the DTF chain 

• #WDOPN if a work station DTF is on the DTF chain 



The second module (#DD20P) formats the necessary con- 
trol blocks (DTF, lOBs, master index, high key buckets) 
and the buffer areas. The lOBs and buffer areas are first 
formatted based upon the access being consecutive/direct/ 
indexed and normal/SIAM. Then the remaining DTF fields 
are calculated to allow data management to begin process- 
ing. Finally, if opening an indexed file, the master index 
area is initialized and the high key buckets are established, 
if requested. 



Work Station Open (#WDOPIU) 



• #DMOF if neither a disk DTF nor a work station DTF 
is on the chain 

Input to #DMOP is a chain of preopen DTFs addressed by 
XR2. These DTFs were created and chained when the pro- 
gram was compiled or assembled. XR2 points to the first 
DTF on the chain. This DTF contains a pointer ($DFCHB) 
to the second DTF, the second DTF to the third, and so on 
(see Figure 3-1). 

Output from #DMOP is a chain of DTFs with an indicator 
in each showing which DTF to open. 



Disk Open (#DD10P, #DD20P) 

The device oriented function for disk consists of two tran- 
sients - #DD10P and #DD20P. Input to each is the 
address of the first DTF on the forward chain in register 2. 
Each of these modules must loop through the entire DTF 
chain and process all disk DTFs which need to be opened. 
Control is passed to #WDOPN if a work station DTF is 
present on the DTF chain or to #DMOF if not. 

The first module of disk open (#DD10P) performs the 
diagnostic checking to ensure access to the requested file 
is allowed under the specified access type. If an error is 
found, the proper MIC number is established and the 
SYSLOG routine called to display the error message. In 
addition, this module initiates the DTF for all access 
methods other than normal disk processing. For dummy 
open DTFs, it provides information about the file within 
the DTF. For ZPAM and ISRI, it initiates the DTF and 
loads the necessary data management within the user-pro- 
vided area. 



The work station open routine is called by common open 
(#DMOP) or disk open (#DD20P). Open passes the address 
or the first DTF on the chain in XR2. The DTF may be 
chained to other DTFs that are not work station DTFs. 

#WDOPN's primary function is to place the format indexes 
the user requires into the user area for use and reference by 
the work station data management at execution time. 

Chained DTFs may be used to open one or multiple format 
load members. If only one format load member is to be 
opened, only one DTF in the chain may contain the name 
of the format load member; the balance of the DTFs must 
have blanks in the $WSFMTN field. If multiple format 
load members are being opened, the $WSINXA field must 
contain the same address. This is true if the DTFs are 
chained or multiple open calls are performed to open the 
multiple format load members. 

#WDOPN places format indexes after the indexes previously 
placed in the user-supplied area. #WDOPN also checks pre- 
viously opened format indexes to ensure duplicate format 
names have not been opened. If a duplicate is found, a 
halt is issued. If the format load member is not found or 
the load member found is not a format load member, a 
halt is also issued. 
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Diskette File Open (#DROP) 

When a diskette file DTF is encountered by a call to the 
open routine, the diskette open transient module is called. 
Open reads the active format 1 image corresponding to the 
file to be processed. Open then formats the DTF to its 
postopen status, formats the IOB and prepares the input/ 
output buffers for processing the file. Information from 
the preopen DTF is saved in the active format 1 image so 
the DTF can be restored to its preopen state by Close. 

The postopen DTF serves as the interface between diskette 
data management and the calling program, the IOB furnishes 
the interface between data management and diskette I OS 
that performs the physical disk seek, read and write 
operations. 

The calling program must supply a main storage area for 
diskette data management and put the address of the start 
of this area into the preopen DTF. Open then loads 
diskette data management at this location. 

For output files, the open routine calls diskette IOS to 
write an internal control record into the first data sector 
of the file, if necessary. For input files containing the 
internal control record, the internal control record is read 
and placed at the beginning of the input buffer. 

For existing files, the open routine performs diagnostics to 
ensure the file organization and access type are compatible. 
The record length specified in the DTF is checked to ensure 
it is the same as that from the data set label. However, if 
the calling program places X'FFFF' in the preopen DTF 
record length field, the open routine will place the data set 
label record length into the postopen DTF. 



Common Open 2 (#DMOF) 

The second common transient (#DMOF) is called after the 
DTFs to be opened are flagged by #DMOP and after all disk 
and work station DTFs are open. #DMOF first calls the 
proper device oriented open transients to open all remain- 
ing DTFs. #DMOF then creates a backward chain of DTFs 
just opened. 

Input to #DMOF is a chain of DTFs with some open and 
others not open. Output is a chain of postopen DTFs with 
the last DTF containing a pointer ($DFCHA) to the next to 
last DTF opened. In this manner, the DTFs are chained 
back to the first DTF opened (see Figure 3-1). 

#DMOF also contains all logic needed to open a print file. 



Printer Open (within #DMOF) 

The printer open logic is called for any print file to be 
opened. The print file may be printed directly to a 521 1 
or a 5256 printer, or, if spooling is active, it may be spooled 
for later printing. Input to printer open is XR2 pointing to 
the printer DTF to be opened. 

It first performs all diagnostic checking on the file, and if 
an error is found, it issues the proper MIC through the use 
of SYSLOG. If no errors are found, space within the 
assign/free area is obtained for the printer IOB and the IOB 
is initialized. Then the remaining fields within the DTF are 
initialized to allow data transfer. Finally, a format com- 
mand and a forms feed command are issued to the printer. 
This establishes the proper printer control for the program 
and positions the carriage on line one of a new page. 
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Figure 3-6 shows the interrelationship of the transient open modules. 
Figure 3-1. Open Main Control and Data Flow 
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Method of Operation 

This section contains functional diagrams for routines 
needed to start a job. They are: 

© Initiator 

o Normal allocate 

® Special allocate 

o Deallocate 

o Open disk, diskette, printer, work station, and data 
communications DTFs 



ra INPUT 



From: Step Termination or 
Command Processor 

PROCESS zzaamsssma 




SBKSBEnzEaanHi 



Required system 
areas 



Preopen DTFs 



Diagram 3.0. Overview of Starting a Job 



.^^O Perform initiator function (Diagram 3.1) 

I _ 

Z^>® Allocate overview (Diagram 3.2) 



^>® Open disk, diskette, printer, and work 
station data communications DTFs 
(Diagram 3.6) 



ana 



OUTPUT 



J^ Initialized files and 



program 



^> Allocated DTFs, 
files, and devices 




^^ Postopen DTFs 



'mi'in uiumi: 



To: User Program 
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From: Step Termination or Command Processor 
or Release 



INPUT 



Main Storage 



C800: 



C900: 



DDOO: 



F800: 



FFFF 



Initiator 

Work Area (IWA) 



Initiator 
Mainline (#CI ML) 



Procedure 
Parameter 
Save Area 
buffer (PPSA) 

and 
Keyboard/ 
Source SYSIN 
Mainline 
(#CLSS) 



Initiator/ 

SYSIN 

Routines 



Keyboard or 

procedure 

members 

Source 

statements 

FSB chain 

AFA format 1 

chain 

VTOC format 1 

Disk VTOC 

SCA 

JCB 




PROCESS 



> 



Perform preliminary OCL statement 
processing 

Process FILE statement 

Perform appropriate OCL statement 
processor function 

Handle error conditions as needed 



> 



OUTPUT 



IWA 

Diskette AFA 
format 1 

Disk AFA format 1 

Format 1 chain 

FSB chain 

FSB 

SSOURCE 

$WORK 

$W0RK2 

Statements in 
SSOURCE 

Enqueued files 

Acquired work 
stations 




To: User Program 



Diagram 3.1 (Part 1 of 11). Perform Initator Function 



DESCRIPTION 


MODULE/ 
ROUTINE 


| Initialize fields to begin processing next statement. 

Read record from keyboard or procedure member and place in buffer 
If statement begins with *, read next statement. 




#CIML 


#CLSS 


#CIML 


If statement does not begin with // it is assumed to be procedure call; 


go to BE Q. 




Scan statement for verb. 






Search verb table for verb. 






If verb found in table, go toQfl^. 
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DESCRIPTION 



MODULE/ 
ROUTINE 



^^ Set up fetch parameter list to give control to Include Statement Processor (#CIIC) and go toMlay. 
■£9 If encoding required switch in verb table is not on, go to U^9- 

Find keywords in keyword table and place their control bytes in encoding area. 

Move parameter and length to encoding area. 
Q IfverbisFILE.gotoQ. 

If any errors detected, set error code in IWA and go to El. 
1*1 Fetch appropriate statement processor (relocating loader SVC 52) and go to jj. 
Q Check switch in IWA to ensure FILE statement follows LOAD statement. 

Scan encoded parameters in IWA and goto appropriate processing routine (within #CIML): 

• Name and label parameter. 

• Date parameter. 

• Pack parameter. 

• Retain parameter. 

• Unit parameter. 

• Records parameter. 

• Blocks parameter. 

• Location parameter. 

• Disp parameter. 

If no label parameter specified, substitute name parameter for label and place in format 1 area. 

Ensure: 

• Name parameter specified. 

• No diskette parameters on disk file statement. 

• No disk parameters on diskette file statement. 

• No DISP parameter specified with RETAIN-J. 

Ensure duplicate name not in file specification block (FSB) chain. 
Search FSB chain for file with same unit, label, and date (if specified). 

If requested file already on FSB chain: 

• Point new FSB at format 1 . 

• Add new FSB to chain. 

• Return toKJto read next OCL statement. 

If unit specified on file statement is diskette: 

• Add new FSB to chain. 

• Move format 1 to AFA format 1 area. 

• Return to^Jto read next OCL statement. 

If file not on FSB chain and RETAIN-J specified on file statement: 

• Create new disk AFA format 1 . 

• Add FSB to chain. 

• Return toQ to read next OCL statement. 

If file being used by another task and can be shared: 

• Add new FSB to chain (FSB points to found format 1). 

• Return toQto read next OCL statement. 

If file not on FSB chain, not RETAIN-J, and not being used by another task: 

• Call initiator VTOC routine. 



#CIML 
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A • Look for file in disk VTOC. 

• If file not found in disk VTOC, go to ^fl^4 . 

• Compare format 1 built from file statement with VTOC format 1 just read. 

• If not right one, go to (£fl ^Ato see if another file exists in VTOC with same label. 

• Add VTOC format 1 to format 1 chain. 

• Add new FSB to FSB chain. 

■4 • Indicate in format 1 that file is new (file not on FSB chain, AFA format 1 chain, or in VTOC). 

• Add format 1 built from file statement to format 1 chain. 

• Add new FSB to FSB chain. 

If any errors detected, set error code in IWA and go to^J. 

Return toQto read next OCL statement. 

Bel * or ** Statement Processor 

Scan SYSIN buffer for first nonblank character after * or ** and if character not quotation mark ('message'), 
go to LEl^J. 

Scan SYSIN buffer for second quotation mark (end of message). 

Place start of message and message length in SYSLOG parameter list. 

Call SYSLOG to display message to work station if //* or system console if //** and go tofjlj. 

SjS Convert message identification code (MIC) from EBCDIC characters to packed decimal arid place in message 
retrieve parameter list. 

Call SYSLOG to display message to work station if //* or system console if //**. 

■>1 If any errors detected, set error code in IWA and go toQ|. 

Return toQor termination to return to command mode. 

ATT R Statement Processor 

Check that ATTR statement is not between LOAD statement and RUN statement. 

If system is in single program mode, return to |Q. 

Scan encoded parameters in IWA and go to appropriate routine (in #CIAT): 

• Priority parameter. 

• MRTMAX parameter. 

• NEP parameter. 

• Release parameter. 

Set priority and MRTMAX in TCB. 

SetNEPinJCB. 

Set release indicator in IWA. 

If any errors detected, set error code in IWA and go to(jJ. 

Return toQto read next statement. 



#CIVT 



#CIML 



#CIVT 



#CIML 



#CIVT 



#CIML 



#CIMS 

or 
#CIM2 



#CLXS 



#CIMS 

or 
#CIM2 



#CLXS 



#CIMS 

or 
#CIM2 



#CIAT 
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COMPILE Statement Processor 

Check that COMPILE statement follows LOAD statement. 

Check directory entry in IWA to see if source required. 

If no source required, go to£j. 

Check for second COMPILE statement in this step. 

Scan encoded parameters in IWA and go to appropriate routine (in #CICM): 

• SOURCE parameter. 

• INLIB parameter (find library on disk). 

• OUTLIB parameter (find library on disk). 

• MRTMAX parameter (save in compiler information block). 

• NEP parameter (save in CI B). 

Find source member and save information about it in IWA. 

Move compiler information block (CIB) to assign/free area and save CIB address in JCB. 

If any errors detected, set error code in IWA and go to Jj. 

Return tojjto read next statement. 

DA TE Statement Processor 

If not beginning of session, go toJCj ^M (beginning of session is time between sign-on and first load 
statement received). 

If session data already specified (in JCB), go to(£j^j9. 

^W Check that DATE statement follows LOAD statement. 

Check for second date statement in this step. 

^9 Scan input buffer for date, remove delimiters and add zeros if required. 

Put date in year-month-day and packed format. 

Put date in JCB. 

If any errors detected, set error code in IWA and go to £] . 

Return toQto read next statement or call termination to return to command mode. 

FORMS Statement Processor 

Scan encoded parameters in IWA and go to appropriate routine (in #CIFM): 

• LINES parameter. 

• FORMSNO parameter. 

Set lines/page in JCB if specified. 

Set forms number in JCB if specified. 

If any errors detected, set error code in IWA and go to£3- 

Return to ■■to read next statement or call termination to return to command mode. 



#CICM 



#CIER 



#CICM 



#CIDT 



#CIFM 
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IMAGE Statement Processor 

Call TWA (SVC 51) access to read work station configuration record. 

If first parameter is HEX or CHAR, go to|j€j . 

Find source member name on statement. 

Search system library for source member. 

Read first statement. 

Ensure first statement: 

• Begins with //. 

• Verb is IMAGE. 

• First parameter is HEX or CHAR. 

^M Convert length in source get/SYSIN buffer to binary. 

Read print belt image into configuration record buffer. 

Write updated work station configuration record from config record buffer to configuration record on disk. 

If any errors detected, set error code in IWA and go to £]. 

Return to||to read next statement or termination to return to command code. 

INCLUDE Statement Processor 

If next level of procedure parameter save area (PPSA) not in main storage, use task work area routine to 
retrieve it. 

Find procedure name on statement. 

Find procedure in user library or system library. 

Save start sector, end sector, and record length of procedure in procedure parameter save area buffer. 

If this is a MRT, go to HMp. 

Save parameters in PPSA buffer. 

If not MRT, save parameters in PPSA buffer. 

Save information from job control block (JCB) in PPSA: 

• Message member addresses. 

• Current library. 

• UPS I switches. 

Use task work area routine to write PPSA buffer to PPSA (to inform that. If active function, this procedure is 
now active). 

Update current PPSA tag in JCB. 

If any errors detected, set error code in IWA and go toQ|. 

Return toDto read next statement. 



#CIIM 



#MASYG 



#CIIM 



#CLSS 

or 
#MASYG 



#CIIM 



#CIIC 



#MASFN 



#CIIC 
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MRT Procedure Processor 

Check that MRT procedure call is not between LOAD and RUN statements. 
Use task work area (TWA) (SVC 51) access routine to write data (if any) from OCL statement to TWA. 
Search TCB chain to see if MRT is already active. 
If MRT is found, go toQ^W. 

Create new JCB using system configuration record information. 
GotoQQ. 
KtV Check if MRT is waiting for resources and if so, set waiting indicator in JCB. 
Build ACE and queue it to work station IOCH queue or TCB complete queue. 
Post work station controller or post the MRT. 
If any errors detected, set error code in IWA and go to Q. 

Return toftjif initiating new MRT, go to detach routine #SVAU if attached to existing MRT. 
LIBRARY Statement Processor 

Check that LIBRARY statement is not between LOAD and RUN statements. 
Scan encoded parameters in IWA encoding area and go to name parameter routine. 
Find specified user library and put library format 1 address in parameter list. 
Find file specification block (FSB) for this library in library FSB chain. 
Set on library statement bit in FSB. 
If in a procedure, go to | 
Set on session library bit in FSB. 
Set library format 1 address in JCB. 

If any errors detected, set error code in IWA and go to §j| . 
Return tofjor termination to return to command mode. 
LOAD Statement Processor 
Check for second LOAD statement in this step. 
Syntax check program name. 

Search current user library (if any) and system library for specified program. 
Save directory information in IWA. 

Ensure program will fit in user area: 

• Convert the program size to 2K blocks and store it in the IWA. 

• Compare the program size to the user area size in the SCA. 



#CIMT 



Disk IOS 



#CIMT 



#CILB 



#MAFLB 



#CILB 



#CILD 



#MASFN 



#CILD 
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Set appropriate indicators in I WA and JCB: #CI LD 

• Program has utility control statements (JCB). 

• NEP program (JCB). 

• Load statement received this session (JCB). 

• Load statement received this job (JCB). 

• Load statement received this step (IWA). 

• Initiator in intra mode (JCB). 

• Statement processors should not call termination (IWA). 

If this is a MRT program, set up indicators to initiate the MRT. #CI LM 

If any errors detected, set error code in IWA and go to £]. #CILD 

Return to B II to process next statement. 

LOAD - MRT Routine #CILM 

Check that MRT program is not being loaded from keyboard. 

Check that MRT program is not being loaded from the job queue. 

If not MRT procedure set MRTMAX in TCB to zero, indicate program is SRT, and go to 

Set MRTMAX in TCB to value in directory information (IWA) — MRTMAX was X'FF' when procedure 
first entered. 

If number of requestors not greater than MRTMAX, go tojQ^A. 

Calculate number requesters over MRTMAX. 

Find same number (over MRTMAX) TUBs on chain attached to this MRT and set off no skip bit (indicates 
requester not active but waiting to attach to MRT). 

If errors detected, set error code in IWA and go to El . 

Go tojflto process next statement. 

LOCAL Statement Processor #CILC 

Scan encoded parameters in IWA and go to appropriate routine (in #CILC): 

• OFFSET parameter. 

• DATA parameter. 

Use task work area (TWA) access routine to read in local area from TWA. 

Move data at specified offset into local area buffer and use TWA access to write buffer to disk. 

If errors detected, set error code in IWA and go tojQ|. 

Go to 1513 to process next statement or call termination to return to command mode. 

LOG Sta tement Processor # C I LG 

If not in single program mode, and if spool is supported, return toftflor to termination to return to command 
mode. 

Ensure that first parameter is CRT or PRINTER. 

Ensure second parameter (if any) is EJECT or NOEJECT. 
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Set SYSLOG indicator in SCA. 


#CILG 


Set eject/noeject indicator in SCA (default is eject). 




If any errors detected, set error indicator in IWA and go toQ. 




Go toQor termination to return to command mode. 
MEMBER Statement Processor 




#CIMM 


Scan encoded statement in IWA and go to appropriate routine (in #CIMM): 




• Program 1 parameter. 




• Program 2 parameter. 




• User 1 parameter. 




• User 2 parameter. 

Search current user library and then system library for requested member. 

Set relative disk address for message member and library format 1 address in JCB. 




#MASFN 


#CIMM 


If any errors detected, set error code in IWA and go to £j . 




Return to||or termination if return to command mode. 

PAUSE Statement Processor 

Call SYSLOG to issue PAUSE message. 

Return toQj|to process next statement. 

PRINTER Statement Processor 




#CIPS 


#CLXS 


#CIPS 


#CIPR 


Ensure PRINTER statement follows LOAD statement. 




Set up default printer specification block (PSB). 




Scan encoded parameters in IWA and go to appropriate routine (in #CIPR): 




• LINES parameter. 




• FORMSNO parameter. 




• COPIES parameter. 




• DEFER parameter. 




• ALIGN parameter. 




• SPOOL parameter. 




• PRIORITY parameter 




• DEVICE parameter. 




• NAME parameter. 




Check PSB to see if name specified. 




Search PSB chain for duplicate name. 




If device not specified, set default in PSB. 




Add new PSB to chain. 




If errors detected, set error code in IWA and go toQ. 




Return tojjjto process next statement. 
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REGION Statement Processor 


#CIRG 


Check that REGION statement is not between LOAD and RUN statement. 




Scan encoded parameters in IWA and go to size parameter routine. 




Set region size in JCB. 




If any errors detected, set error code in IWA and go toQ. 




Return toQto process next statement. 
RUN Statement Processor 




#CIRN 


Ensure that LOAD statement preceded RUN statement. 




Get program date from job control block (JCB) and place in all new disk F1's. 




Check F1's and file specification blocks (FSBs) to ensure no other task is creating a file with the same label and 
date. 




Bind resources needed by the program: 

* Enqueue all disk files. 

• Acquire all required work stations. 

If requested program is part of a procedure, call task work area (TWA) access routine (see Control Storage Logic 
Manual) to write procedure parameter save area (PPSA) buffer to PPSA sector in TWA on disk. 




#DWDM 


#CIRN 


Check directory information in initiator work area (IWA) to determine if program requires source; if no go 




Check if file statements provided for $SOURCE, $WORK, and $WORK2 files: 

• Allocate files for which file statements are provided. 

• Return. 

• Allocate files for which file statements are not provided. 

• Return. 

Open $SOURCE, $WORK, and $WORK2 files. 
Return. 




#CAML 


#CIRN 


#CAS1 


#CIRN 


#DMOP 


#CIRN 


If compile statement received: 

• Read source statements from source member. 

• Return. 

• Write source statements to $SOURCE file. 

• Return. 




#SYSG 


#CIRN 


#DDDM 


#CIRN 


If compile statement not received: 

• Read source statements from keyboard. 

• Return. 

• Write source statements to $SOURCE file. 

• Return. 

Close $SOURCE, $WORK, and $WORK2 files. 
■■ If the requested program must be loaded from the system console, ensure that the requester is the system console. 




#CLSS 


#CIRN 


#DDDM 


#CIRN 


#DDCL 


#CIRN 


Check for an active dedicated program; if one is found, issue an error message. 




If this is a dedicated program, ensure that no other tasks are active; if other tasks are active, issue an error 
message. 
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If this is a high level dedicated program, ensure that the requester is the only signed on command display station; 
if another command display station is signed on, issue an error message. 

If RELEASE-YES was requested, then release the requester display station. 

If any errors detected, set error code in IWA and go to 13 • 

Load the requested program into user area of main storage and pass control to it. 

SWITCH Statement Processor 

If SWITCH statement follows LOAD statement, check if SWITCH statement previously specified for step. 

Scan SWITCH parameter in SYS IN buffer for proper characters (ones, zeros, and Xs). 

Set on or off appropriate UPSI switches in JCB. 

If any errors detected, set on error code in IWA and go toQ. 

Return to Q or termination to return to command mode. 

SYSL 1ST Statement Processor 

If parameter is not CRT or OFF go tofj,^™. 

If CRT specified, set indicator in JCB to X'EEEE'. 

If OFF specified, set indicator in JCB to X'0000'. 

GotQ FlQ- 

If parameter is work station printer ID, go to| 

If parameter is PRINTER, get printer ID from requester TUB. (If MRT or job queue printer is system printer.) 

Find TUB containing printer ID and ensure it is printer TUB. 

Set printer ID in JCB. 

ffp If any errors detected, set error code in IWA and go to Jj. 

Return toQor termination to return to command mode. 

WORKSTN Statement Processor 

Check that WORKSTN statement follows LOAD statement. 

Scan encoded parameters in IWA and go to appropriate routine (in #CIWK): 

• REQD parameter. 

• RESTORE parameter. 

• UNIT parameter. 

• SYMID parameter. 

• PRINT parameter. 

Check work station block (WSB) to ensure unit specified. 

Find TUB with specified work station ID and place address in WSB. 



#CIRN 



#DWDM 



#CIRN 



#SVAU 



#CISW 



#CISL 



#CIWK 
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Check WSB chain for duplicate SYMID or unit. 

If print parameter not specified, set default address in WSB: 

• If MRT or job queue, use system printer. 

• If not MRT or job queue, use configured printer. 

Add WSB to chain. 

If any errors detected, set error code in IWA and go to (J. 

Return to [J to process next statement. 

Q Search error table for requested error code (in IWA) and place message identification code (MIC) and options in 
SYS LOG parameter list. 

If error code not found, issue disaster error (MIC 300). 

If name field should be displayed, move name to SYSLOG parameter list and go to^l«J. 

If only error should be displayed, go to £JK9. 

If not in procedure, go tolEB^J. 

Set off retry option (option 1) in SYSLOG parameter list (not allowed in procedure). 

If in batch job, go to Q^9. 

Display heading and statement in error. 

Cj9 Display error message. 

If or 1 option taken, go toQto read next statement. 

If 2 option taken, call termination. 



#CIWK 



#CIER 



#CLXS 



#CIER 
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From: User Program 




Diagram 3.2. Overview of Allocate 



PROCESS 



• Perform normal allocate function 
H (Diagram 3.3) 

• Perform special allocate function 
| (Diagram 3.4) 



^>+ Perform deallocate function 
(Diagram 3.5) 




OUTPUT 



Allocated DTFs, 
files, and 
devices 

Allocated disk 
files 




O Updated DTF, 
format 1 , and 
format 5s 



To: User Program 
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INPUT 



From: User Program 

pi PROCESS 



^XR2 
^DTF chain 
^MOBsand Buffers 
Main Storage 



Transient Area: 
#CAML 
#CAF1 
#CAF2 
#CAPT 
#CAMG 
#CAPS 
#CAF3 
#CACM 



User Area: 
#CAKS 

(or) 
#CAR1 



User Program 



System Control 
Blocks: 

• AFAFVs 

• PSB 

• FSB 

• JCB 

• TCB 

• TUB 

• SCA 

• Device table 
© CSB 

• AQE 

Disk Areas: 

• F1's 

• F5 




:> 



Q| Perform first pass processing of all DTFs and 
allocate: 

• Old disk files 

• Diskette device 

• Work stations 

• Special DTFs 

9 Allocate diskette file 

3 Keysort nonshared indexed files used with 
indexed access method 

Q Allocate communications lines 

3 Allocate printers 

[jj Allocate new disk files 

Q Format new and load to old files. Update 
active F1's and VTOC F1 



OUTPUT 



^> 




C 



XR2 

Chain of allocated 
DTFs 

-XR1 

k (Restored by 
transient return) 

Allocated Files 

Allocated Devices 



To: User Program 



DESCRIPTION 
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ROUTINE 



Process each preopen DTF in chain not conditioned off by UPS I. 

IfdiskDTF: 

• If old disk file: 

— Complete AFA format 1 . 

— Assign high key bucket if indexed file. 



#CAML 
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— If load to old, set load to old to do bit in request block (RB) and set new creation date. 

— If not load to old, indicate file allocated in DTF and FSB. 

— Indicate in FSB and RB if keysort required. 

• If new disk file: 

— Indicate new file to allocate in RB. 

— Turn on new file switch in DTF. 

— Update AFA format 1 . 

— Assign high key bucket if required. 

If diskette DTF: 

• Indicate diskette in use in JCB. 

• Allocate device. 

• Set on allocate request bit in RB. 

If work station or special DTF, set on allocated bit in DTF. 
Return to J] and repeat steps until all DTFs processed. 
If diskette allocate or keysort requested in RB, go toEft. 
If communications lines, call communications allocate (#CACM) and go toflpfl. 
If printers to be allocated, call print allocate (#CAPT) and go to Hjj. 
If new disk files to allocate, call new disk file allocate (#CAF1 ) and go to ^J- 
If load to old files to allocate, call load to old disk file allocate (#CAF3) and go to mffl . 
If no allocate requests, return to user program. 
•^ Call allocate push/pull transient (#CAPS) and pass control to it. 

If diskette file allocate request bit on in RB: 

• Push user program to disk and set up 4K region in user area. 

• Move DTF to start of user area. ^^ 

• Load diskette allocate (#CAR1 ) after DTF in user area and go to 6£3 . 

ffl£P If return from #CAR1 , restore user region and pull user program from disk. 

If keysort request bit on in RB: 

• Push user program to disk and set up 14K region in user area. 

• Load keysort interface (#CAKS) into first 2K of user area. 

• Go to gel- 

(•9 If return from #CAKS, restore user region and pull user program from disk. 

If request for communications lines, load #CACM and go to^J. 

If request to allocate printers, load printer allocate transient (#CAPT) and go to fl«fl . 

If requested to allocate new disk files, load #CAF1 and go tojjj. 

If requested to allocate load-to-old disk files, load #CAF3 and go toj^f. 

Return to user program. 
(£] If first time allocate or requested in DTF, perform diskette prepare function. 

Find AFA format 1. 



#CAML 



#CAPS 



#CSVI 



#CAR1 
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Check pack parameter against volume ID of mounted diskette. 
Determine if specified file exists. 

If allocating new diskette file: 

• 



#CAR1 



Delete all expired files. 

Ensure clean pack if requested in DTF. 

Allocate new file following existing files. 

Set creation date to proper date. 

Set expiration date. 



If allocating existing diskette file: 

• For Add files: 

— Ensure last (or only) diskette volume of file inserted. 

— Ensure last active file on diskette is add file. 

— Ensure expired files (other than add file) are deleted. 

• For input files, ensure first volume of multi-volume file inserted. 

• For existing file with RETAIN specified, set new expiration date. 

Return to 
gj Check file specification block (FSB) for files requiring keysort. 

Fir files requiring keysort: 

• Update VTOC F1 to allow for keysort failures. 

• Load and pass control to keysort Modules. (See Keysort.) 

• Return here after keysort complete. 

► • If duplicate keys returned from keysort, issue halt. 

• If keysort fun ctioned satisfactorily, reupdate VTOC F1 to turn off failure indication. 

• Return to Q^^. 

Q If BSCorSDLC: 

• Allocate line. 

• Load data management task. 

• Update DTF, CSB, and JCB. 

• Set allocated bit in DTF. 

• If printers to be allocated, call print allocate (#CAPT) and go to M . ^^ 

• If new disk files to allocate, call new disk file allocate (#CAF1) and go to [•] . 

• If load to old files to allocate, call load to old disk file allocate (#CAF3) and go to £ 

• If no allocate requests, return to user program. 

Search printer specification block (PSB) chain for matching DTF name. 
If match found, locate TUB with same work station ID as in PSB. 
If match not found, build default PSB. 

If output spooled: 

• Indicate spool intercepting in PSB, DTF, and TUB. 

• Set allocated bit in PSB and DTF. 

If output not spooled: 

• Put device code in DTF. 

• Set allocated bit in PSB and DTF. 

• Save TUB and PSB address in DTF. 

• Set check forms/image in PSB. 

• Set call forms/image transient in request block (RB). 



#CAKS 



#CSVF 



#CSDK 



#CAKS 



#CSDK 



#CSVF 



#CAKS 



#CACM 
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If needed, do forms/image processing. 

If request to allocate new disk files, load #CAF1 and go toffeS- 

If request to allocate load to old disk files, load #CAF3 and go toKfll. 

tf$l For each new disk DTF: 
O Set up DTF to indicate: 

— Minimum and maximum sectors needed. 

— Spindle desired. 

— Location desired. 

© Count VTOC F1's needed. 

Read format 5. 

Check if enough VTOC F1 space, and call find disk space transient module (#CAF2): 
MM) © If requested space is available: 

— Update format 5 to indicate space taken. 

— Place return code in DTF. 

— Pass control to #CAF3. 

© If requested space is not available: 

— Place return code in DTF to indicate no space available. 

— Set wait or halt bit in DTF. 

— Pass control to #CAF3. 

WEi If #CAF2 found no space: 

© Halt if dedicated system or program. ^^ 
© Wait for space in format 5, reread format 5, call #CAF2, and go to(w). 

If #CAF2 found space: 
© Format file: 

— Write X'FF's to index if indexed file. 

— Write X'40's to data area if direct file or X'OO' if not direct P or T file. 
© Save start and end of data and start and end of index in DTF. 

© If P or T file, write format 1 to VTOC. 
O Set allocated bit in DTF and FSB. 

Return to user program. 

Note: Allocate messages, except duplicate key and diskette message, are provided by #CAMG, which interfaces 
to SYSLOG (duplicate key messages issued by #CSDK and diskette messages issued by #CAR1). 

If allocate message or halt: 

© Build SYSLOG parameter list with program data: 

— File name. 

— File label. 

— Forms number. 

— Work station ID or communication line number as required. 
© Call SYSLOG to issue message/halt. 

• Call end of job transient when 2 option taken to halt. 

Return to calling module. 
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From: User Program 




PROCESS 



Build and place on queue a format 1 and 
FSB for each file to be allocated 

Allocate old files and prepare to allocate 
new and load to old files 

Keysort nonshared indexed files accessed 
by indexed sequential access method 

Allocate new and load to old disk files 



■ OUTPUT 



^> 




C 



XR2 

Chain of allocated 
DTFs 

Allocated disk 
files 



To: User Program 



DESCRIPTION 



MODULE/ 
ROUTINE 



Process each preopen disk DTF requiring special allocate. 

Build format 1 and FSB: 

© If file specification block (FSB) exists (file statement specified) build format 1 into FSB format 1 . 

• If no FSB for requested file, assign area and build format 1 from DTF information. 
© Create or update FSB. 

© Create or update AFA format 1 . 

© If P or T file not in AFA or not on FSB chain, search VTOC for file by label (and date if specified). 

• Return. 

If any file successful, call #CAS2 to do the following for each successful DTF: 
© If disk DTF: 

— Complete AFA format 1 . 

— Assign high key bucket if indexed file. 

— If load to old, set load to old to do bit in request block (RB) and set new creation date. 

— If not load to old, indicate file allocated in DTF and FSB. 

— Indicate in FSB and RB if keysort required. 
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DESCRIPTION 



MODULE/ 
ROUTINE 



* If new disk file: 

— Indicate new file to allocate in RB. 

— Turn on new file switch in DTF. 

— Update AFA format 1 . 

— Assign high key bucket if required. 

£J If key sort is needed, call allocate push/pull transient (#CAPS) and pass control to it. 

From this point, special allocate functions same as normal allocate. 

Use Diagram 3.3, enter at JJljland continue to end. 
Q Special allocate functions same as normal allocate for new or load to old disk file allocate. 

Use Diagram 3.3, enter atQand continue to end. 
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From: User Program 



^XR2 

^ DTF chain (closed] 
Main Storage 






Transient Area: 
#CAD1 
#CAD2 
#CAPS 
#CAD3 


User Area: 
#CAKS 


User.Program 




DTF 
FSB 
AFAF1 



i r PR 

=> 



PROCESS 



luwiiuMwnnm 



OUTPUT 



Perform first pass processing 

Keysort nonshared indexed files used with 
indexed access method 

Update format 5s 




To: User Program 



DESCRIPTION 


MODULE/ 
ROUTINE 


Q Check DTF device code. If not disk, deallocate device and return to user program. 


#CAD1 


Check each DTF for keysort request: 




• Search file specification block (FSB) for name match. 




• If keysort requested: 




— Indicate keysort request in FSB and request block (RB). 

- GotoQ. 

^9 Assign VTOC format 1 buffer. 




#CAD2 


Set format 1 interlock. 




If free disk space request: 




• Ensure nonshared file. 




• Ensure valid end of file extent. 




• If ignore format 5 processing bit not on in DTF, set on bit in RB to handle F5's. 




If file delete request, indicate in DTF to delete as scratch file. 




If file deallocate request: 




* Update last date' indicator for new files or old S files. 

• Write active format 1 to VTOC for P and T files. 




#CSVF 
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DESCRIPTION 



MODULE/ 
ROUTINE 



If S file and ignore format 5 processing bit not on in DTF, set on bit in RB to handle F5s. 
Note: Only deallocate function allowed for shared files. 
If handle F5s bit on in RB, load #CAD3 and go to B| , 
Return to user program. 

If keysort request bit on in RB: 

• Call allocate push/pull transient (#CAPS) and pass control to it. 

• Push user program to disk and set up 14K region in user area. 

• Load keysort interface (#CAKS) into first 2K of user area. 

• From this point, keysort functions same as for normal allocate. 

Use Diagram 3.3 and enter at jc)8 . 

At end of keysort operation, return to this diagram at | 

Enqueue format 5 interlock at 3 level. 

Read VTOC F5 from disk and write to buffer. 

Process each DTF, determining start and end extents to be freed. 

Add or merge format 5 entries in buffer as required. 

Issue message if: . 

• Part of area already free. 

• Format 5 too fragmented to use. 

Write updated buffer out to VTOC F5. 
Return to user program. 
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INPUT 



From: Calling Program 

m PROCESS 



XR2 

DTF (preopen) 

Main Storage 



Transient Area: 
#DMOP 
#WDOP 
#DROP 
#DMOF 
#DD10P 
#DD20P 
#BSOB 



User Area 



User Program 



AFA format 1 




O 



U Prepare to open DTFs 

Q Open disk DTF 

3 Open work station format load member DTF 

Q Prepare to open other DTFs 

3 Open diskette DTF 

3 Open printer DTF 

Q Open data communications DTF 

Ql Chain opened DTFs together 



> 




OUTPUT 



■XR2 




To: Calling Program 



DESCRIPTION 



MODULE/ 
ROUTINE 



MM Check DTF for valid device type. 

If device invalid, call SYSLOG to issue error message. 
Mark all DTFs to be opened by setting switch in DTF. 

If not end of DTF chain: 

• Point to next DTF. 

• Return to KB. 

KjX Point to first DTF on chain. 

• If disk DTF, indicate disk open required. 

• If work station DTF, indicate work station open needed. 

Point to next DTF and repeat above, until end of chain is reached. 

Determine next transient to call: 

• If disk open required, go to Q. ^^ 

• If work station open needed, go to Qj. 

• Otherwise, go to Q- 



#DMOP 
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DESCRIPTION 



MODULE/ 
ROUTINE 



Perform all diagnostic checking of DTF. 

If error found, call SYSLOG to issue error message. 

If dummy open, initiate all required DTF fields. 

For ZPAM and ISRI, complete DTF and load required data management into user area if required. (Relocating 
loader SVC 52). 

Apportion lOBs and buffer area as needed. 

Complete all DTF fields as required. 

If requested, build master track index. 

Build high key bucket if needed. 

If work station open needed, go toQcJ. 

Otherwise go to ^J. 

Check DTF for valid device code. 

If user library assigned, scan library directory for format load member name specified in DTF. 

If no library assigned, or if load member not in library, scan system library for format load member. 

If format load member found: 

© Ensure load member created by $SFGR and total sectors greater than zero. 

© Read format load member index. 

© Count number of format index entries. 

© If format index entry count exceeds maximum defined in DTF, call SYSLOG to issue message. 

• If previous format load member opened, ensure no duplicate format names exist. 

• If no errors found: 

— Move format indexes to location specified in DTF. 

— Update index address and number of index entries in job control block (JCB). 

When all work station DTFs are open, go to iOl to open next DTF or chain together opened DTFs. 

afl Point to first DTF on ch ain: 

• If printer DTF. go to KH . 

© If diskette DTF, go to ^| . 

• If data communications DTF, go to WM . 

• If special DTF, indicate DTF opened. 

■3 Point to next DTF on chain: __ 
© If end of chain reached, go to BS. 

• If not end of chain, go to |~~ 



Update active format 1 . 
Ensure file properly allocated. 
Initialize DTF to postopen status. 

For existing files: 

• Ensure file organization and access method compatible. 

• Supply, or check record length. 
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DESCRIPTION 



MODULE/ 
ROUTINE 



Build and initialize lOBs: 

© For output files, write internal control record if required. 

© For input files, read first data area and set internal control record and/or track alignment indicators in DTF. 

© For basic exchange files, determine if full track I/O possible. 

Initialize DTF end of file field. 

Update DTF next record pointers and/or prime buffer for add file. 

Format I OB to postopen status for processing data: 

© For full track I/O requests, adjust to read or write to track boundary. 

© For basic exchange output file, clear output buffer. 

Process diagnostic errors. 

Load either diskette data management or sector data management to diskette (SVC 52) into user area if required. 

Go to [%]fl fl»flto open next DTF or to chain together opened DTFs. 

Perform all diagnostic checking. 

If error found, call SYSLOG to issue error message. 

Obtain space within assign/free for IOB. 

Initialize IOB. 

Initialize all required DTF fields. 

Issue format and skip to line one command to printer. 

Route printer lOBs to work station I/O control handler (WSIOCH) or to spool intercept routine (#SPINT). 

Go to[fc|ffi|)to open next DTF or to chain together opened DTFs. 

Open data communications DTF (Diagram 1.1 in SSP Logic: Data Communications). 

Go tO |fcll flp)to open next DTF or to chain together opened DTFs. 
•]| Build backward chain to include all opened DTFs. 

Return to calling program. 
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Program Organization 

Figures 3-2 through 3-6 show the logic flow of functions 
needed to start a job. They are: 

• Initiator 

• Normal allocate 

• Special allocate 

• Deallocate 
o Open 
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Figure 3-2. Initiator Control Flow 
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Figure 3-3 (Part 1 of 2). Normal Allocate Control Flow 
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Figure 3-3 (Part 2 of 2). Normal Allocate Control Flow 
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Figure 3-5. Deallocate Control Flow 
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1 See Diagram 1.1 in SSP Logic: Data Communications 
Figure 3-6. Open Control Flow 
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Chapter 4. Running a Job 



Introduction 

The functions that might be used to run a job are: 

• Disk data management 

• Sector data management to disk 
© Diskette data management 

© Diskette end of volume 

• Sector data management to diskette 
© Printer data management 

© Workstation data management 

© Keysort 

© Spool intercept 

© Spool print writer 

DISK DATA MANAGEMENT 



The base functions, in conjunction with appropriate sub- 
routines, perform the requested disk I/O operation. Figure 
4-2 shows the subroutines used by the four base functions. 
The actual I/O operation is performed by disk IOS within 
control storage. 

Control is returned to the user program by way of the main 
driver. Subroutines return control to the base function that 
called them; base functions return control to the access 
method driver that called the base function; drivers return 
control to the main driver and thus control is returned to 
the user program. 



Consecutive Access Method 

Figure 4-3 shows the control and data flow in a disk data 
management operation using a consecutive access method. 
Data and logic could flow in either or both directions, 
depending on whether the operation is a retrieval, an 
update, or an addition of records. Disk data management 
gets each record from the data buffer or places it in the 
next adjacent location in the data buffer. When disk data 
management has filled or emptied the data buffer (a block 
of records has been processed), the disk I/O supervisor is 
called to transfer data between the data buffer and the disk. 



Disk data management functions are performed by a mod- 
ule (#DDDM) that resides in the system nucleus. Figure 4-9 
shows #DDDM control flow. 

When the user program requests data management services, 
the request is passed to the router routine. The router, 
which is part of the disk data management module, deter- 
mines and passes control to the proper data management 
module. 

If disk data management is requested, control is passed to 
the main driver routine within #DDDM. The main driver 
routine examines the first attribute byte in the disk DTF to 
determine the access method requested. 

The proper access method driver receives control from the 
main driver routine. The driver examines the operation 
code in the disk DTF to determine which base function or 
subroutine to call. Figure 4-1 shows the base functions 
and subroutines used by the various access methods. 



Control information passes from the calling routine to 
disk data management through the disk DTF block. Con- 
trol information passes between disk data management 
and disk IOS through an IOB (see Data Areas Handbook). 



Direct Access Method 

Input 

For an input operation, the calling program passes a relative 
record number to data management which converts it to a 
disk address and locates the record in the data I/O buffer 
(see Figure 4-4). On input, if the record is not in the data 
I/O buffer, disk data management calls disk IOS to read the 
disk sectors containing the records into the data I/O buffer. 
Disk data management places the address of the record in 
the DTF. The calling program may retrieve the record 
directly from the data I/O buffer. 
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Base Function / Subroutine Name 





X 
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PUTD (put data— base function) 
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X 


GETD (get data— base func 
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X 


PUTI (put index— base function) 
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GETI (get index— base function) 
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SRGPI (get/put I/O interface— subroutine) 
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SRUKE (check update key error— subroutine) 
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SRNIE (get next index entry— subroutine) 


Driver 
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Consecutive Driver 


DIRDRV 
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Direct Driver 
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Indexed Random Driver 
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X 
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X 
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Indexed Sequential Driver 



Figure 4-1. Base Functions/Subroutines Used by Access Methods 
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X 
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SRF1G 
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Get format 1 values 


SRF1P 


X 




X 




Update format 1 values 


SRMOV 


X 








Move data to I/O buffer 



Figure 4-2. Subroutines Used by Base Functions 
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Update 



Add 



When updating a record, disk data management retrieves 
the record as described in the previous paragraph and passes 
control to the calling program. After the calling program 
has updated the record, disk data management receives the 
address of the updated record, moves the record to its orig- 
inal position in the data I/O buffer, and calls disk IOS to 
write the data I/O buffer. Any retrieved records may be all 
blanks (as formatted by allocate) and be updated. 



Output 

For an output operation, disk data management receives 
the address of the record, moves the record to its location 
in the data I/O buffer, and calls disk IOS to write the data 
buffer. Internally, each writing of an output record is 
immediately preceded by a retrieval of that same record. 



Indexed Random Access Method 

Input 

The calling program passes a key value to disk data manage- 
ment in the key /storage area (Figure 4-7). Disk data 
management uses the SCAN function to search for the key 
in the index on the disk. The sector(s) containing the 
requested logical record are read into the data I/O buffer. 
The address of the record in the data I/O buffer is passed 
to the calling routine via the DTF. The calling routine 
can then obtain the record directly from the data I/O 
buffer. 



When adding a record to a file, disk data management 
receives the address of the record and searches the index 
area on disk to see if the key of the record to be added 
already exists in the index. If the key is a duplicate, an 
error completion code is returned to the calling routine 
and the record is not added. For add and output opera- 
tions, disk data management moves the record to the 
data I/O buffer and builds an index entry in the index 
buffer. When either the index buffer or the data I/O 
buffer must be written to disk, disk IOS is called. 



Indexed Sequential Access Method 

Disk data management processes indexed sequential files 
only in ascending key sequence, normally starting with 
the lowest key in the index (or the lowest key within spec- 
ified limits) and processing each record in the primary part 
of the file (Figure 4-5). 



Input 

Sequential input is accomplished by consecutive reference 
to each index entry and a retrieval of its associated record. 
If the requested record is not in the data I/O buffer, disk 
data management calls disk IOS to read the disk sectors 
containing the record. When the last index entry in the 
index buffer has been processed, disk data management 
calls disk IOS to read the next sector of index. 



Update 



Update 

When updating a record, the calling program must first 
retrieve (input) the record as described in the previous 
paragraph. After the calling program has updated the 
record, an update operation can be performed. At this 
time, disk data management receives the address of the 
updated record, ensures that the key value has not been 
changed, moves the record to its original position in the 
data I/O buffer, and calls disk IOS to write the data I/O 
buffer. The index is not changed. Each writing of an 
updated record must be immediately preceded by the 
input of that same record. 



When updating a record, the calling program must first 
retrieve (input) the record as described in the preceding 
paragraph. After the calling program has updated the 
record, an update operation can be performed. At this 
time, disk data management receives the address of the 
updated record, ensures that the key value has not been 
changed, and moves the record to its original position 
in the data I/O buffer. Each update operation should be 
immediately preceded by a retrieve of that same record. 
When the last record in the data I/O buffer has been pro- 
cessed, disk data management calls disk IOS to write the 
data I/O buffer to disk if it contains any updated records. 
The index buffer is not rewritten. 
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When adding a record to a file, disk data management 
receives the address of the record and compares its key to 
the current key and last key values to ensure that the key 
is in ascending sequence and does not already exist in the 
file. If the key is not in sequence or is a duplicate, an error 
completion is returned to the calling routine and the record 
is not added. For add and output operations, disk data 
management moves the record to the data I/O buffer and 
builds an index entry in the index buffer. When a buffer 
is filled with added records or index entries, or when an 
input request follows an add operation, disk data manage- 
ment calls disk IOS to write the buffer(s) to disk. 



Indexed Sequential/Random Input Access Method 

Three types of input operations are performed by the 
indexed sequential/random input access method. The user 
may issue a random get and from that point go either for- 
ward or backward to sequentially access disk storage. 

For a random get operation, $F1 KAD contains the address 
where the record key is located. Record retrieval is the 
same as for an indexed random input operation. 



Get forward is another possible operation. Record 
retrieval is the same as for an indexed sequential input 
operation. The record is the next record relative to the 
last get operation. 

Get backward is the third possible operation. Record 
retrieval is the same as for an indexed sequential input 
operation. The record is the previous record relative to 
the last get operation. 



Description of Access Method Drivers 

Consecutive Driver 

Input: For consecutive input, a relative record number is 
internally generated, (open initializes this DTF field 
($F1 RRN) to X'O') and this record is retrieved using the 
get data base function. Then the relative record number 
is bumped by one and control is returned to the user. The 
only valid completion code other than normal (X'40') 
and I/O error (X'4T) is end of file (X'42'). The retrieved 
record is located in the I/O buffer and the DTF field 
$F1 WKB points to the leftmost byte of the record. 
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The user's I/O buffer must be large enough to contain a 
complete logical record (having worst-case sector boundary 
alignment) since this operation functions in locate mode. 

Output: For a consecutive output operation, the DTF 
field $F1WKB must contain the leftmost address of the 
logical output record. The put data base function is called 
to move the record to the I/O buffer and write the buffer 
to disk when necessary. Multiple moves may be required 
to move the record to the I/O buffer since it is not neces- 
sary to have on I/O buffer equal to or larger than the 
record length. The DTF field $FINXR is used to determine 
the location for each output record. The only completion 
code other than normal and I/O error is end of extent 
(X70'). 



Add: An add operation functions similar to an output 
operation. 



Update: Consecutive update first checks to ensure that the 
previous operation was a get. If this check fails, a comple- 
tion code of X'45' is set to indicate an update operation 
was not preceded by a get. When a valid update operation 
is determined, the internal relative record number is decre- 
mented by one to point to the last record retrieved and the 
record is put to the I/O buffer and disk if necessary. 



Special Considerations for Consecutive Processing: When 
SIAM is specified, the I/O buffer is written and/or read for 
every operation performed. When doing an update opera- 
tion, the I/O buffer is reread between the get and put 
operations. Therefore the user must move the retrieved 
record out of the I/O buffer prior to doing the output 
portion of his update. 



Direct Driver 

Input: When doing a direct input, the caller must have 
the relative record number of the requested record in the 
record address area ($F1 KAD), pointed to by the DTF. 
$F1 KAD must contain the address of an area 3 bytes in 
length if the RRN is a binary value or 10 bytes long if the 
RRN is a decimal value. 



A check is made to see if the requested record is in the 
present I/O buffer. In any case, once the record is in the 
buffer, it is located via $F1WKB and control is passed 
back to the calling routine with a normal completion 
code of X'40'. The only other return code from direct 
input (except for I/O error) is X'44', record out of extent. 
All direct input operates in locate mode thus requiring 
that the user's I/O buffer be large enough to contain at 
least one complete record with worst case sector boundary 
alignment. 

Update: Direct update first ensures that the previous 
operation was a get and then the updated record is moved 
to the I/O buffer and written to the disk if necessary. The 
same restriction holds true for direct as for consecutive 
update. (See Special Considerations for Consecutive 
Processing.) A possible return code from direct update 
operations is X'45', update before input. 

Special Considerations for Direct Processing: Only three 
operations are supported for direct processing. They are 
the input, update and output op codes. Since a direct file 
is considered to be full of blank records at allocation time, 
a user may not add to a direct file. The output operation 
forces an input followed by an update with data in manage- 
ment. Direct processing always computes the N-byte in 
the IOB upon entry to any operation to enable dynamic 
blocking during processing. The N-byte is computed to 
be the value of the leftmost byte of the block length 
($F1BKL) minus one. 



Indexed Random Driver 

Input: Indexed random input obtains the key of the 
requested record from the addressed location in $F1 KAD. 
The key is compared to the prime key bucket to see if the 
record is in the prime portion of the index. If the requested 
key is higher than the prime bucket, the key does not exist 
in the prime area so a check is made against the overflow 
bucket. Again if the compare is high, the key does not 
exist in the overflow and a return code of X'44' is set indi- 
cating no record found. If the key is found to possibly 
exist in the prime index, a scan is issued with an argument 
of high or equal. If the scan returns a high or no hit value, 
the scan starts over in the overflow area with an equal only 
argument. If the scan of the prime returns an equal indi- 
cator, the record has been found and the RRN is retrieved 
from the index buffer and the associated data record is 
also retrieved. When the scan of the overflow area returns 
an equal found, the RRN is retrieved from the index buffer 
and then the associated data record is retrieved. If the 
scan of the overflow yields a no hit value, a return code 
of X'44' is set indicating no record found. 
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When a scan equal is returned from the scan function, 
and the RRN has been located, the RRN value is con- 
verted to an SSSD value and that sector is read into the 
data I/O buffer. Then the record is located in the I/O 
buffer and the leftmost address returned by way of 
$F1WKB, along with a completion code of X'40'. The 
only return code other than normal from indexed random 
input is record not found (X'44'). 

Add: Indexed random add expects the address of the key 
for an add record to be in the DTF at $F1 KAD. The first 
step of the add operation is to scan the prime and overflow 
area if necessary to see if the key already exists. If the key 
is found to already exist in either the prime or overflow 
area, a return code of X'60\ duplicate add attempted, is 
set and control returned to the caller. If the key is not 
found, the add operation may continue. $F1WKB must 
contain the leftmost address of the record to be added. 
A check is made to ensure that the record will fit in the 
data area on disk. If it will not fit, a return code of X'70' 
is set indicating end of extent. If the record will fit in the 
extent, the record is moved to the I/O buffer and written 
to disk if necessary. Next the index entry is built. A 
check is made to ensure that the index entry will fit in the 
index extent. If it will not fit, a return code of X'70' is 
set indicating end of extent and control is returned to the 
user. If it will fit, the index entry is moved to the index 
I/O buffer and written to disk. The add key is compared 
against the overflow key bucket and if the new key is 
higher, the new key is moved to the overflow key bucket. 
The SSSD of the new key in the overflow key bucket is 
also moved to the format 1 . 



Special Considerations for Indexed Random Processing: 
When doing index random output, it is possible to put 
duplicate keys to a file. When processing under indexed 
random input, and duplicate keys do exist, only the first 
key entry is accessible. When doing adds to a file, the sort 
and merge bits in the F1 are set as follows: 





Higher 
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Than 


Than 




Prime 


Prime 


Higher 






Than 


No 
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Setting 


Merge 


Lower 
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Indexed Sequential Driver 

Input: When doing indexed sequential input, the first 
record retrieved is the first index entry followed by each 
record, by key sequence in the index. The first thing 
that is checked is to see if processing is within limits. All 
indexed sequential processing is processed as though 
limits are specified. If limits are not specified, the limits 
are set to the start and end of the file. When end of file 
is reached and limits are specified, the open limits tran- 
sient may be called to set net limits. This transient call 
is made only if a get request is received and the comple- 
tion code contains a X'42', end of file. 



Output: Indexed random output first moves the data 
record from the work buffer ($F1WKB) to the data I/O 
buffer, and write it to disk if necessary. Next an index 
entry is built and moved to the index I/O buffer and writ- 
ten to disk if necessary. No key sequence checking is 
done and no checks are made to ensure that duplicate 
records are not put to the file. 



Update: Processing for update must be preceded by an 
input of the same record. The record key is checked to 
ensure that it has not been updated. If it has been updated, 
the return code is set to X'50', update key error. The data 
is moved from the record buffer to the data I/O buffer, 
and written to disk if necessary. 



Update: Indexed random update first ensures that the key 
of the record being updated is the same as the key of the 
last record retrieved. If not an update key error (X'50') 
is set and control returned to the caller. A check also 
ensures that the previous operation was a get. If not, error 
X'45' update before input is set and control is returned 
to the caller. If all is well up to here, the updated record is 
moved from the record buffer to the I/O buffer and writ- 
ten to disk. The same restriction holds true for indexed 
update as did for consecutive update (see special considera- 
tions for consecutive processing). 



Add: When doing an indexed sequential add, you must 
first read the first record past the location into which 
you want to add. The following example explains this 
procedure. 



Introduction 4-7 



Licensed Material— Property of IBM 



If the file you are adding to contains keys 1 , 2, 5, 10, 20 
and 50, and you wish to add record key 3. You must first 
read records 1, 2, and 5. At this point you may add rec- 
ords 3 and 4, in that order. If you wish to add record key 
17, you must continue reading up to record 20. At this 
point you may add records 1 1 through 19. If you wish to 
add records greater than key 50, you must read to end of 
file and at that point you may add as many records as there 
is room in the file. Remember that each add must be in 
ascending order by key. 



SECTOR DATA MANAGEMENT TO DISK (#DDSM) 

Sector data management resides in the system library and 
is loaded by disk open. It is provided for user and SSP 
functions which require movement of considerable amounts 
of data to or from disk. Sector data management utilizes a 
single input/output buffer which is filled by a single read 
operation, or written to disk with a single write operation. 
Sector data management operates with no consideration of 
logical record length. 



Special Considerations for Indexed Sequential Processing: 
Indexed sequential add operations may not be processed 
under a file sharing environment. When processing a file 
containing random adds and the index has not yet been 
sorted, you do not have access to the records in the over- 
flow area (added records). 



Indexed Sequential/Random Input Driver 

This access method supports only input operations. Three 
types of input may be specified. 

• Random get — X'80' op code 

The record key must be at the address contained in 
$F1 KAD. The retrieval of this record is the same as 
any indexed random input operation. 

o Get forward — X'84' op code 

This operation is the same as any indexed sequential 
input operation. The next key, relative to the last get, 
is retrieved. 

© Get backward - X'82' op code 

This operation causes the previous record, relative to 
the last get, to be retrieved. 



Data Transfer Modes — Locate and Move 

The base functions of #DDDM execute in one of two 
modes of operation: locate mode and move mode. 

In locate mode, a record is not moved after the data 
management module places it in the data I/O buffer. 
Instead, the address of the record is placed in the DTF, 
and the calling program retrieves the record directly from 
the data I/O buffer. 

In move mode, the base function routines in #DDDM 
receives records from a calling program in an area (work 
buffer) that is separate from the data I/O buffer. In all 
output operations, the record is received from the calling 
program's output area. The base function routine moves 
the resident portion of the record from the work buffer, 
calls disk IOS to write the data I/O buffer, then moves 
the remaining portion from the work buffer. 

For writing data to disk, data management operates in 
move mode. 

For reading data from disk, data management operates 
in locate mode. 



Each successive get is based on the last get operation, 
except for a random get which only gets the record 
requested. If the first operation is a get forward, the rec- 
ord referenced by the first index entry is the first record 
in the file to be retrieved. A return code of X'42' is issued 
whenever end of file is reached, either forward or back- 
ward. A X'44' is set if a random get cannot be found. 



Double Buffering 

Consecutive input and consecutive output files can use 
double buffering. In double buffering, one buffer twice 
the size of the specified block length is used. 
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DISKETTE DATA MANAGEMENT (#DRDM) 

Diskette data management resides in the system library and 
is loaded by diskette open. Data management is capable of 
processing System/32 created, System/34 created, and basic 
data exchange files. 

Five access types are provided: 

1. Put basic record (PBR) 

2. Get basic record (GBR) 

3. Put system record (PSR) 

4. Get system record (GSR) 

5. Add system record (ASR) 

Basic data exchange files can be described as unspanned 
fixed length logical records of length less than or equal to 
sector size with a fixed physical record size equal to the 
sector size (sector size is 128 bytes or 256 bytes). Physical 
records may be blocked. Data management ensures that 
logical records of less than sector size are properly padded 
with binary zeros on output and that the logical records are 
properly deblocked on input. 

System files can be described as blocked/spanned fixed- 
length records in fixed-length blocks. Records can span 
sector and volume boundaries. Record length must not 
exceed 4K (4096 bytes). Block length (physical I/O buf- 
fer size) should be a multiple of the diskette sector size and 
equal to or greater than the record length. For diskette 1, 
a block length of 3-1/4K (3328 bytes), which equals one 
diskette track, should be used if possible for standard for- 
mat diskettes. For extended format diskettes, ideal buffer 
size is 4K (4096 bytes), which is equal to the extended 
format diskette track size. For diskette 2D, a block length 
of 6-1 /2K (6656 bytes) should be used for standard format 
diskettes and a block length of 8K (8192 bytes) should be 
used for extended format diskettes. 

Either move or locate mode can be used for output as well 
as input. Using move mode, records are moved by data 
management between the physical input/output buffer and 
a logical record area provided by the calling program. Using 
locate mode, the physical I/O buffer is shared by data 
management and the calling program, with a record pointer 
to the leftmost byte of each input or output record set by 
data management in the DTF at $I1WKB. When using 
locate mode for output, record size should be a multiple 
of 1 28 and may not span I/O buffers. 



If a block length (physical I/O buffer size) is equal to the 
size of a track and track I/O is requested by the calling 
program, data management will operate with full track 
I/O requests and may process only part of the I/O buffer 
on the first call. Using move mode, track alignment is 
transparent to the calling program. 

Using track I/O with locate mode, the calling program 
must be able to process a partial I/O buffer (as small as 
128 bytes). For input files, diskette data management 
places the partial buffer of data within the last part of the 
input buffer and sets a pointer ($I1WKB) to the first byte 
of valid data. For output files, diskette open sets this 
pointer indicating to the calling program where data should 
begin within the partial buffer. If the initial buffer size 
($I1BKL) which is calculated by open causes a record to 
span the I/O buffer, the calling program must block or 
deblock the record. 

After the first partial buffer is processed by diskette data 
management, by calling diskette IOS to write or read data, 
$I1WKB is restored to point to the first byte of the I/O 
buffer, and I/O buffer size ($11 BKL) is restored to equal 
one track (3328, 4096, 6656, or 8192 bytes). 



DISKETTE END OF VOLUME (#DRNV) 

The end of volume transient routine is normally called by 
diskette data management after the last sector of data on a 
diskette has been processed. 

For input files, the data set label is rewritten to the diskette 
VTOC if the expiration date has been changed. 

For output or add files, the data set label is written to the 
diskette VTOC, with a volume sequence number and an 
indication that the file is continued to another diskette. 

A diskette insert message is issued for the system operator 
and processing is suspended. 

When a new diskette is inserted and ready for input files, 
EOV calls VTOC read/write to search the diskette VTOC 
for a data set label corresponding to the file being pro- 
cessed. When it is found, the volume sequence number is 
checked. The DTF and IOB are then updated and process- 
ing continues. 



Introduction 4-9 



Licensed Material— Property of IBM 



When a new diskette is inserted and ready for output files, 
EOV ensures that the diskette contains no active files. In 
doing so, expired files may be deleted. The file being pro- 
cessed is allocated at the beginning of the diskette data 
area and processing continues. 

EOV occurs without the calling program regaining control. 
An indicator is set to let the calling program know that a 
volume transition has occurred. 

In case of a permanent diskette write error during data out- 
put, diskette data management calls close to issue an error 
message which has a continue option. If continued, the file 
being written is cut off at the end of the last good block of 
data written and end of volume is called to continue the file 
to another diskette. 



SECTOR DATA MANAGEMENT TO DISKETTE (#DRSM) 

Sector data management resides in the system library and is 
loaded by diskette open. Sector data management is capable 
of processing System/32 and System/34-created files. It is 
provided for System/34 SSP functions which require move- 
ment of considerable amounts of data to or from diskette. 
Sector data management uses a single input/output buffer 
which is filled by a single read operation, or written to 
diskette with a single write operation. Sector data manage- 
ment operates with no consideration of logical record length. 



PRINTER DATA MANAGEMENT 

Printer data management is an SSP function that is part of 
disk data management. While in use, printer data manage- 
ment resides in the system nucleus of main storage along 
with disk data management, work station data management, 
and printer IOS. 

Printer data management's main function is to convert user 
print requests within the printer DTF to printer IOB 
requests to be passed to the printer IOS. 

Printer data management uses move mode to transfer data 
from a user-supplied logical data area into a physical data 
area. The data is then printed from the physical data area, 
also referred to as the I/O buffer. 

When the printer data management module (#DPDM) is 
entered, the completion code ($PRCMP) is set to X'40' to 
indicate normal completion. 



Printer data management then moves the skip and space 
values from the DTF to the IOB ($IOBPSPA). 

If print is requested in the DTF, the data to be printed is 
moved from the user supplied logical buffer into the physi- 
cal buffer. Also, the data string length is moved into the 
printer IOB ($IOBPLNG), and a print indication is set in 
the IOB control byte ($IOBPCTL). 

DTF attribute byte three ($PRAT3) is tested to see if forms 
alignment is requested and print spool is not active. If both 
conditions are met, the printer alignment transient (#DPAL) 
is called to supply forms alignment information to the sys- 
tem operator. After the system operator aligns the forms, 
#DPAL returns control to the user program. 

The prepare print buffer supervisor call instruction is 
issued. This SVC inserts printer control codes into the 
print buffer to effect the requested skip and space opera- 
tions; it also maintains a record of the current line number 
in the printer IOB. 

Printer data management moves the current line number 
from the IOB ($IOBPCLN) to the DTF ($PRCLN), and 
checks for page overflow. If overflow has occurred, the 
overflow completion code (X'48') is set in the printer DTF 
($PRCMP). 

Printer IOS is then entered. Upon return from IOS, printer 
data management waits until the contents of the print buf- 
fer have been moved to the printer. Then the IOB status byte 
($IOBPSTA) is checked for a permanent error. If a perma- 
nent error has occurred, the DTF completion code 
($PRCMP) is set to X'41\ Control is then returned to the 
user. 



WORK STATION MANAGEMENT 

Work station management allows the application program- 
mer to present data on a display screen by providing only a 
string of data fields. The data is displayed on the screen 
in predefined format. Conversely, on input, the formatted 
data is taken from the display screen and returned to the 
user as a string of data fields. All device-dependent control 
characters, orders, constants, and field attribute characters 
are inserted or deleted by work station management. The 
work station management component is made up of two 
parts: a screen format generator routine and a data manage- 
ment routine. 
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WORK STATION DATA MANAGEMENT 

Work station data management is a supervisor routine 
which runs as a subroutine under the user task and controls 
all I/O requests to the work stations. Work station data 
management is composed of a nucleus resident mainline 
module and transient routines. The transient routines pro- 
cess requests not handled by the mainline routine. 

Two versions of the work station data management are 
used. Either a main storage resident version or a transient 
version can be used. 

An SVC is issued by the application program for work sta- 
tion data management services. Address of the workstation 
or printer DTF is in index register 2 (XR2). 

When the work station data management mainline module 
is entered, a series of diagnostic checks is made on the 
request. If terminal errors are encountered, the task is ter- 
minated with the appropriate termination code. If less 
serious errors are found, control is returned to the applica- 
tion program with a return code in the DTF. The symbolic 
terminal name is resolved into a terminal unit block (TUB) 
address. If the operation is a: 

• Put: The format index is scanned for the disk address 
of the requested format, and the text and field descrip- 
tor table (FDT) is read into the data communications 
buffer area. The application data and the FDT are 
scanned, inserting the data in the appropriate place in 
the text stream. If any indicators are specified for over- 
rides in the FDT, the indicators are checked as each field 
is processed. The IOB in the TUB is marked for a put 
operation and if the request is for a put-wait, a wait is 
issued on the TUB. When the wait is satisfied, or 
immediately for a put-no-wait, control returns to the 
application program by way of the instruction address 
register (IAR). 

• Invite input: The invite bit in the work station IOB is 
set on and control returns to the user by way of the 
IAR. 



• Accept input: The invite input count (TCB IN VCT) is 
checked for zero or no outstanding invites. If this is the 
case, control returns to the application program with the 
appropriate return code. If (TCBINVCT) is nonzero, a 
general wait is issued. When the wait is satisfied, the 
address of the completed IOB is in XR1 . If TUBUS is 
on, the input is in response to an explicit invite input, 
and the data is read into the user program record area. If 
TUBIMI is on, this is data with a program request. If the 
program is an MRT, MRTMAX is checked to see if this 
request will exceed the maximum number of requesters. 
If the limit has been reached, the noskip bit is set off in 
the TUB and the wait reissued. If not, the data is moved 
to the user area and control passed to the application 
program. 

• Get: The invite bit is set on in the IOB and a wait on 
the IOB takes place. Upon completion of the wait, the 
data is read into the user's record area and control 
returns to the application program. 

• Stop invite input: The terminal unit block is checked to 
see if the invite operation had ended.lf it has completed, 
the application is notified by way of a return code that 
the stop invite failed and the data is available. If the 
invited TUB is incomplete, the invite is canceled and the 
user is notified that the operation was successful. 

• Put overrides: This operation is handled the same as a 
put, with the exception that only the FDT is read into 
the data communications buffer. The text stream is 
constructed from the fields that have indicators specified 
for overrides, using the appropriate indicator settings. 
Only the fields or attributes using overrides is sent to the 
display. 

• Acquire terminal: The request is diagnosed, and if valid, 
#WDDQ attempts to attach the specified work station to 
the user program. If the work station is unavailable/the 
application has the option of enqueing the work station. 
If the option is not specified, a return code notifies the 
application that the acquire has failed for that reason. 

If the work station is available, it is attached to the 
application. A stop invite is issued and control returns 
to the user. 
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• Release terminal: A call is issued for transient #WDDG 
which dequeues the TUB from the application program. 
If the application is an MRT program with more request- 
ers queued (MRTMAX exceeded), the next queued 
requester will be posted complete. The released termi- 
nal unit block is then passed to the command processor. 

• Get terminal attributes: A call is issued for transient 
#WDDQ which will build, in the application program 
record area, a series of data bytes describing the follow- 
ing attributes of the specified work station: 

— Allocation status 

— Screen/printer 

— Screen size 

— Online/offline 



KEYSORT 

The function of keysort is to arrange indexed disk file 
index entries in ascending order based on the key portion 
of the index. 

Figure 4-6 is an overview of the keysort program. Index 
entries are sorted to produce an ordered index. 

The keysort user must provide a 1 2K-byte area in main 
storage. Figure 4-7 shows how this area is used. 



Save, restore, print, roll, erase, or clear: #WDDB builds, 
in the data communications buffer, a data stream to exe- 
cute the various commands. 
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Figure 4-6. Keysort Program Overview 
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The user must also provide a 12-byte keysort parameter 
list with XR2 pointing at the list. The parameter list is 
formatted as follows: 

DKACB 1 

3 

5 

7 

9 

11 

The first 6 bytes are set by the calling program and the 
last 6 are set by the keysort program. 

The parameter list fields are defined as follows: 

Displacement Length Description 






LIST ID D 


2 


F1 image 


4 


KS partition size 


6 


Ret cond byte keylength 


8 


Duplicate key 


10 


Return to keysort 



Displacement Length Description 

6 1 Return Condition Byte: 

• Bit (X'80') - Duplicate 
key detail return. 

• Bit 1 (X'40') - Duplicate 
key summary return. 

• Bit 2 (X'20') - System 
error return. 

• Bit 3 (X'10') -I/O error 
within index. 

• Bit 4 (X'08') - I/O error on 
work file — index scrambled. 

• Bits 5-7 — Reserved. 

Note: The remainder of the list is set only if the Return 
Condition Byte bit is on. 






1 


Parameter list ID, C'K'. 














7 


1 


Key length. 


1 


1 


Duplicate key action control 












byte (DKACB): 


8-9 


2 


Pointer to beginning of dupli- 
cate key. 






• Bit (X'80') - Activates 












duplicate key checking. 


10-11 


2 


Address in keysort to return t 



2-3 



4-5 



• Bit 1 (X '40') -Activates 
detail duplicate key com- 
unication (if bit also on). 

• Bits 2-7 — Reserved (must 
beO). 

Pointer to beginning of format 1 
image in translatable storage. 

Keysort partition size (bytes). 



after detail duplicate key pro- 
cessing by calling program. 
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After a special return to the calling program for detail 
duplicate key processing occurs, the calling program may or 
may not return to keysort. If the calling program does not 
return, the index is invalid. If the calling program does 
return, the duplicate key is retained and processing con- 
tinues according to the current duplicate key action control 
byte. 

A system error special return is triggered when problem 
determination is made by keysort. This condition may 
result from an invalid parameter list, an invalid format 1 
field, or a processing error by keysort. 

All keysort lOBs are constructed so that Disk IOS will not 
issue I/O error messages. Permanent disk I/O errors fall in 
one of three categories during keysort: . 

1. Those occurring within the index. 

2. Those occurring on the keysort work file after the 
Index has been partly altered. 

3. Those occurring on the keysort work file where 
the Index has not been altered. 

An I/O error in category 1 results in bit 3 of the return 
condition byte being set and a final special return to the 
calling program. 

An I/O error in category 2 results in bit 4 of the return 
condition byte being set and a final special return to the 
calling program. 

An I/O error in category 3 results in keysort automatically 
restarting and performing the indicated sort and/or merge 
without using a work file. This category does not cause a 
special return. 

Logging duplicate key messages, when necessary, is the 
responsibility of the calling program because no single set 
of options and resultant actions satisfies the requirements 
of all calling functions. 



The modules that make up the keysort program are: 

Module Name Function 

#DDKAA Keysort control (including common) 

#DDKAB Set preliminary internal values 

#DDKAC Design sort 

#DDKAD Auto-allocate work file 

#DDKAZ End of assignment phase 

#DDKEP End of pass 

#DDKLL Three-phase sort control 

#DDKSS Sort-in-place 

#DDKWG Deblock from work file 

#DDKWP Block for work file 

#DDK1A Phase 1 control 

#DDK1E Phase 1 internal sort (repl/sel) 

#DDK1 G Deblock and degap from input 

#DDK1R Read input 

#DDK2A Phase 2 control 

#DDK2E Phase 2 intermediate merge 

#DDK3A Phase 3 control 

#DDK3E Phase 3 final merge 

#DDK3P Block and regap for output 

#DDK3W Write output 

Figure 4-12 shows the control flow between keysort pro- 
gram modules. Refer to this figure when using the keysort 
diagram. 
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SPOOL INTERCEPT 

Spool is an optional feature that intercepts system printer 
commands and places them on disk storage, creating a print 
queue. When requested, the spool writer retrieves records 
from the spool queue and outputs them to the system 
printer. 

The spool intercept routine resides in the system nucleus 
portion of main storage. Intercepted print lines are com- 
pressed to remove strings of more than three blanks. This 
compressed data along with line control information is 
then written to the spool file. 



User Program 

(request for 
printer IOS) 



t> 



Printer Data 
Management 

Printer IOS 




The spool file resides on disk and is made up of a primary 
file and up to five equal size extents. The primary file, 
allocated at IPL time, contains information about the 
spool file entries as well as data areas for the compressed 
print records. The spool file extents are allocated sep- 
arately, and only when the primary file and all previously 
allocated extents become filled. The size given for the 
spool file at system configuration time is the size of the 
primary file in number of blocks. 

When space is no longer available in the spool file, the error 
message SPOOL FILE IS FULL is issued. The system 
operator can display the print queue to determine if the 
print writer can be started to remove entries from the print 
queue to free up space in the spool file. The SPOOL Fl LE 
IS FULL message can be responded to with a retry option 
when spool file space is available. If there are no com- 
pleted entries, the existing spool file is not large enough 
to accept more records. A CONTINUE option will close 
the spool file, post the print writer to indicate print output 
exists, and issue another halt indicating the spool intercept 
routine is waiting for the spool writer to complete. When 
the writer completes and the last halt is responded to, 
spool intercept attempts to obtain file space again and con- 
tinue processing. 
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SPOOL PRINT WRITER 

The spool print writer runs in main storage to print output 
from the print queue. The writer is loaded only when 
output exists to be printed and remains in main storage 
only while printing entries from the print queue. The 
writer operates as a utility program, independent of the 
rest of the system, and requires an 8K-byte user partition. 
An optional autowriter feature exists which causes the print 
writer to be loaded without operator command whenever 
output exists in the print queue. If the autowriter feature 
is not selected at system configuration time, the operator 
must issue a START PRT command to initially evoke the 
print writer. 



Spool 
Print 
Queue 



Command Processor 






Spool Print Writer 



Print Commands 



and Data 



1/ 



Printed 
Output 



Once the START PRT command is issued, the writer 
prints until the queue is empty or a command issued. If 
the command issued is STOP PRT, the message WRITER 
STOPPED is displayed and end of job called. 

After data has been printed from the spool file, the disk 
space is freed up. The free entry is placed on the available 
queue to allow reuse by spool intercept. 



4-16 



Licensed Material-Property of IBM 



Method of Operation 

This section contains functional diagrams for routines used 
to run a job. They are: 

o Disk data management functions 

• Sectorized disk data management functions 

• Diskette data management functions 
© Diskette end of volume function 

• Printer data management function 



• Work station data management function 

• Keysort function 

© Spool intercept function 

• Spool print writer function 



m INPUT 



From: Calling Program 

PROCESS 




Disk file 



Unordered index 



Diskette file 



Diskette file 



r 



*^0 Perform disk data management function 
d (Diagram 4.1) 



~^>© Perform sectorized disk data management 
function (Diagram 4.2) 



™^>0 Sort index entries for indexed disk file 
(Diagram 4.7) 




Z^° Perform diskette data management function 
(Diagram 4.3) 




~^* Perform diskette end of volume function 
(Diagram 4.4) 



1^® Write printer data (Diagram 4.5) 



© Perform work station data management 
function (Diagram 4.6) 



]^>© Perform spool intercept function 
(Diagram 4.8) 



*^© Print records from spool file 
(Diagram 4.9) 




p OUTPUT n""ii l "r*".M' l iaca 



£> Disk file 



^> Ordered index 



^> Diskette file 



> 



Diskette file 




^> Physical I/O area 



:> Sp 



ool print queue 



^^ Printed output 



y*aa*Lvm!miH*w.wmi>*..wi.w>i..m„*.w:l 



To: Calling Program or 

Control Storage End-of-Job Transient ($EOJ) 



Diagram 4.0. Overview of Running a Job 
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INPUT b 



From: Calling Program 

pi PROCESS 




> 



W DTF 
Main Storage 




System Nucleus: 
#DDDM 

• Main Driver 

• Access 
Drivers 

• Base 
Functions 

• Subroutines 



User Area 



User Program 



Determine file type and access method 
Read or write disk data 
Update DTF 



> 




OUTPUT 



-XR2 

C 



c 



I/O buffer 



To: Calling Program 



Diagram 4.1 (Part 1 of 2). Perform Disk Data Management Functions 
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DESCRIPTION 


MODULE/ 
ROUTINE 


lifl Enter disk data management from calling program. 
Ensure DTF is open. 


#DDDM 


Router 


Inspect DTF device code ($F1DEV) to determine data management type requested. 




If disk data management, call main driver (MAINDRV). 




Do sector enque for add operation. 

Inspect DTF attribute bytes to determine access method requested. 




MAINDRV 


Call driver corresponding to requested access method (Figure 4-8). 
ES Inspect DTF operation code ($F10PC) to determine base function to call (Figure 4-8). 




Appropriate 




Driver 


Call appropriate base function. 
Determine subroutines to call (Figure 4-8). 




Appropriate 




Base Function 


Update I OB for IOS use. 




Do sector enque when necessary for update. 
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DESCRIPTION 



MODULE/ 
ROUTINE 



Call disk IOS to perform read/write operation. 
Do sector deque for update. 
Set completion code in DTF. 

Update DTF pointer. 

Do sector deque for add operation. 

Return control to user program. 



SRGPI 



Disk IOS 



Appropriate 
Driver 



MAINDRV 



Diagram 4.1 (Part 2 of 2). Perform Disk Data Management Functions 
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INPUT 



From: Calling Program 

m PROCESS 



XR2 
DTF 
Main Storage 



User Area : 
#DDSM 



Disk file 




OUTPUT 



:> 



Prepare to read or write disk data 
Process block of data 
Update DTF 




To: Calling Program 



DESCRIPTION 



MODULE/ 
ROUTINE 



Execute initialization routine and prime buffer for input or add files. 

Update DTF record pointers for current record or block. 

Check for end of data: If end of input data, return to caller. 

Read or write complete I/O buffers. 

Issue SVC instruction for disk IOS services. 

Set appropriate completion code in DTF. 

Return control to user program. 



#DDSM 



Disk IOS 



#DDSM 



Diagram 4.2. Perform Sectorized Disk Data Management Function 
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From: Calling Program 
INPUT BBMMBSBBBBXm I W PROCESS 



msaaB| 



C 



XR2 
DTF 
Main Storage 



User Area: 
#DRDM 

or 
#DRSM 




> 



Diskette File 



Prepare to read or write diskette data 
Process record or block of data 
Update DTF 



r 



OUTPUT 



> 



■■B 



XR2 

DTF, 

IOB- 

I/O Buffer 

Diskette File 



c 



To: Calling Program 



DESCRIPTION 



MODULE/ 
ROUTINE 



Execute initialization routine and prime buffer for input or add files. 
Update DTF record pointers for current record or block. 

Check for end of data: 

• If end of input data, return to caller. 

* If end of volume, set attribute bit and call close. 

Block or deblock records between work buffer and I/O buffer (move mode). 

Locate input data or location for output data within I/O buffer (locate mode). 

Read or write complete I/O buffers. 

Issue SVC instruction for diskette IOS services. 

Restore pointers and data areas after first I/O operation on full track request. 

Set appropriate completion code in DTF or initiate end of volume as requested. 

Return control to user program. 



#DRDM 

or 
#DRSM 



Diskette IOS 



#DRDM 

or 
#DRSM 



Diagram 4.3. Perform Diskette Data Management Functions 
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INPUT 



From: Close Diskette (#CRCL) 

■ PROCESS 



C 



c 



XR1 
TCB 
XR2 
DTF 
Main Storage 



Transient Area: 
#DRNV 



User Program 

User Area: 
#DRDM 

or 
#DRSM 



AFA format 1 
Diskette file 




> 



Ensure proper diskette is inserted 
Update required areas 
Process diagnostic errors 



> 




OUTPUT 



< 



XR1 

TCB 

XR2 

DTF, 

IOB- 

I/O Buffer 

AFA format 1 

Diskette file 



o 



To: Diskette Data Management Diagram 
(#DRDM or #DRSM) or #DRCL 



DESCRIPTION 


MODULE/ 
ROUTINE 


Q Issue task work area (TWA) request (SVC 51 ) to write one sector of I/O area to disk. 
If output operation, write VTOC to diskette. 
Return. 

Issue insert next volume message. 
Return. 

Read VTOC of next volume. 
Check volume I.D. 

Setup I/O buffer to read diskette VTOC format 1's. 
Set up system date information for deleting expired files. 
Read diskette data set labels from VTOC. 
If output file, ensure diskette contains no active files. 


#DRNV 


#CSVI 


#DRVN 


#CLXS 


#DRNV 


#CSVI 


#DRNV 


#CSVI 


#DRNV 



Diagram 4.4 (Part 1 of 2). Perform Diskette End of Volume Function (EOV) 
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DESCRIPTION 



MODULE/ 
ROUTINE 



Initialize multivolume indicator and enter volume number. 

If input file, check volume sequence number, and if required, check creation date. 

Update DTF and IOB for new volume. 

Issue TWA request (SVC 51 ) to restore sector back to I/O area in core. 

Exit to diskette data management, or if an error occurred in flushing final buffer, return to diskette close. 

Process diagnostic errors at time they are discovered by calling SYSLOG routine (#CLXS). 



#DRNV 



Diagram 4.4 (Part 2 of 2). Perform Diskette End of Volume Function (EOV) 
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INPUT 



IIIMIiUi 



From: Calling Program 

PROCESS 



C 



XR2 
DTF 
Main Storage 



System Nucleus: 
#DDDM 
Disk 
Data 
management 



#DPDM 
Printer 
Data 
management 

IPTR 
Printer 
I OS 



User Area 



User Program 



=> 



n OUTPUT 



Logical I/O area 



fcfrlMit m<iiwii.x wiamummuMBUMmM.tf 



Set completion code 

Move SKIP/SPACE to IOB 

Set up physical buffer 

Issue prepare print buffer SVC 

Check for page overflow 

Enter printer IOS 

Set completion code 




To: Calling Program 



DESCRIPTION 


MODULE/ 
ROUTINE 


Hfll Set normal completion code (X'40') in DTF. 


#DPDM 


fj££Hl Move skip and space values from the DTF to the IOB. 




HI If print requested in DTF: 




® Move logical buffer into physical buffer. 




© Move data string length to IOB. 




© Set print indication in IOB control byte. 
[fOI If page alignment is requested, set up to issue forms alignment message. 
Print the line. 
Return to user when option is selected. 




#DPAL 


WSIOCH 


#DPAL 



Diagram 4.5 (Part 1 of 2). Write Printer Data 
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DESCRIPTION 



MODULE/ 
ROUTINE 



Issue prepare print buffer SVC 26. 

Move current line number from IOB to DTF. 

If page overflow has occurred, set overflow completion code in DTF. 

Print the line; 

or 

Write the line to the spool file. 

Wait until contents of print buffer has been moved to printer. 

If permanent error occurs, set permanent error completion code in DTF. 

Return to user. 



#DPDM 



WSIOCH 



#SPINT 



#DPDM 



Diagram 4.5 (Part 2 of 2). Write Printer Data 
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pi INPUT 



>-XR2 

^DTF 



From: Calling Program 

~ PROCESS 



Main Storage 




System Nucleus: 
#DWDM 
#WDDA* 



Transient Area: 
#WDDB 
#WDDC 
#WDDQ 
#WDDG 
#WDDH 
#WDDK 
#WDDO 
#WDDP 
#WDAF 



User Area 



User Program 



* If work station 
data management 
is not nucleus 
resident, #WDDA 
operates as a 
transient. 



Perform diagnostic check on requests 
Process requested operation 
Return to calling program 



> 



OUTPUT 



DTF: 

• Return code 

• Effective input 
length 

• Record area 
address 

• TUB address 




To: Calling Program 



Diagram 4.6 (Part 1 of 3). Perform Work Station Data Management Function 
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DESCRIPTION 


MODULE/ 
ROUTINE 


HH If status inquiry request: 

© Set return code to reflect outstanding invites, 
© Return to calling program. 

If accept input request: 
© Wait 'any'. 

• Read data into user's area. 

• Move user's parameter list back into DTF. 
© Return to calling program. 

Call #WDDA. 

If status inquiry op code: 

• Set return code to reflect outstanding invites, 
© Move user's parameter list back into DTF. 

• Return to calling program. 


op-ended invites 
op-ended invites, 


and STOP system in effect, 
and STOP system in effect. 


#DWDM 


#WDDG 


#DWDM 


#WDDG 


WSIOCH 


#WDDG 


#DWDM 


#WDDA 


#WDDG 
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DESCRIPTION 


MODULE/ 
ROUTINE 


fcjl Validate symbolic terminal name provided by user with operation. 

If get attributes request: 

• Determine if display or nondisplay. 

• Display screen size. 

• Determine attachment type. 

• Determine if online or offline. 

• Determine allocation status of work station. 

• Determine invite status. 

• Determine inquiry mode. 

• GotoBcl. 

If acquire op-code: 

• Diagnose acquire terminal request. 

• Set work station ownership to requesting task. 

• If work station available, stop invites. 
« GotoQ. 

Check that user owns requested work station. 

If get operation: 

• Ensure that work station is online. 

• Wait for IOB completion. 

• If function key, call #WDDH. 

• If Print key, call #WDDK: 

— Determine printer to be used. 

— Attach Print key task (#WDDP) 

— Allocate buffer and read screen. 

— Write data to swap area. 

— Post#WDDP: 

a. Wait for post from #WDDK. 

b. Read data from disk. 

c. Allocate printer; if not successful, call SYSLOG. 

d. Print screen. 

e. Go to end of job. 

— Call #WDDH to display error message stating that print was scheduled. 

• If low-level Help key or other function key, 
issue write error message. 

• If high-level Help key and if user owns work station, assign new TUB. 

• Retrieve help text. 

• Issue message. 

© If user, free new TUB. 

• Call WSIOCH to read data. 

• Read data into user's record area. 

If release request: 

• If release single requester terminal (SRT) request, set off SRT release requester indicator in TUB. 

• If release multiple requester terminal (MRT) request, set off waiting on MRTMAX. 

• If non-MRT release request, indicate RIB released by non-MRT. 

• GotoQ. 

If terminal invited: 
® Stop invite. 

• If necessary, set cancel command in TUB. 

If stop invite op-code, 
give return code. 


#WDDA 


#WDDG 


#WDDQ 


#WDDA 


#WDDQ 


#WDDA 


#WDDG 


#WDDH 


#WDDK 


#SVAT 


#WDDK 


#WDDP 


FDIOS 


#DPDM 


#WDDP 


#WDDK 


#WDDH 


WSIOCH 


#WDDH 


#MSGRE 


#WSIOCH 


#WDDH 


#WDDG 


WSIOCH 


#WDDA 


#WDDG 


#WDDA 


#WDDB 


#WDDA 


#WDDB 



Diagram 4.6 (Part 2 of 3). Perform Work Station Data Management Function 
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DESCRIPTION 



MODULE/ 
ROUTINE 



If special request, do one of the following: 

• Roll request. 

• Clear request. 

• Reset request. 

• Erase request. 

• Restore request. 

• Save request. 

• If print request: 

— Use user's DTF if possible. 

— Push user. 

— Read screen into user area. 

— Print screen. 

— Pull user. 



If put request: 

* Conditionally assign work station queue space for text stream and format. 

* If assign fails: 

— If work station queue space is greater than text stream and format, unconditionally assign work station 
queue space. 

— If work station queue space is less than text stream and format, push user. 

* Read format and build text stream: 

— Find format index entry corresponding to format. 

— Ensure that format entry is valid. 
Read field descriptor table and text from disk. 
If put override, call #WDDO. 
Format output data. 

rocess override of: 
Screen S specifications. 
Blinking display. 
Blinking cursor. 
Sound audible alarm . 
Reset keyboard. 
Insert cursor. 
Bypass field. 

Detail field definition D specification. 
Nondisplay field. 
Reverse image field. 
High intensity field. 
Blinking field. 
Underscore field. 
Output field. 

rocess suppress invite indicator. 

If erase or put override not in operation: 
Process erase indicator. 
Process put override indicator. 



Scan for more output data. 

Output data to work station. 

If user was pushed, 
^ pull user. 

9 Move user's parameter list back into DTF. 

Return control to calling program. 



#WDDA 



#WDDB 



#WDDC 



#WDAF 



#WDDC 



#DPDM 



#WDAF 



#WDDA 



#WDAF 



#WDDA 



FDIOS 



#WDDA 



#WDDA/ 
#WDDO 



#WDCP 



WSIOCH 



#WDDA 



#WDAF 



#WDDA/ 
#WDDQ/ 
#WDDG 



Diagram 4.6 (Part 3 of 3). Perform Work Station Data Management Function 
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INPUT 



From: Calling Program 

b PROCESS 






XR2 



C, 



Parm List 
Image 
Main Storage 



User Area: 

Calling Program 
(see Figure 4-13) 



Index area 
Overflow index area 




> 



Call assignment modules 
Execute assignment phase 
Execute three phase sort 
Execute sort-in-place 
Execute merge 
Perform housekeeping 



> 




OUTPUT 



^-XR2 

^Parm List 



F1 Image 
Ordered index 



To: Calling Program 



DESCRIPTION 



MODULE/ 
ROUTINE 



Call modules used during assignment phase (phase 0): 

• Three phase Sort Control (#DDKLL). 

• Set Preliminary Internal Values (#DDKAB). 

• Design Sort (#DDKAC). 

• Auto Allocate Work File (#DDKAD). 

• End of Assignment Phase (#DDKAZ). 

Initialize common. 

Obtain index information from format 1 image. 

Design sort operation based on external parameters: 

• Determine block size for input, work, and output areas. 

• Determine size of record storage area (RSA). 

• Determine number of records to fit in RSA. 

• Determine order of merge for intermediate and final merge passes. 

• Decide if work file is needed. 

If work file is needed, attempt to allocate space. 

If in debug mode, issue problem determination and debug information. 

If sort not indicated, go tojjj. 

If work file not allocated, go to El . 



#DDKAA 



#DDKAB 



#DDKAC 



#DDKAD 



#DDKAZ 



#DDKAA 



Diagram 4.7 (Part 1 of 3). Sort Index Entries for Indexed Disk File 
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DESCRIPTION 



MODULE/ 
ROUTINE 



gj Pass control to #DDK1A (phase 1). 
Indicate phase 1 entered. 
Pass control to #DDK1 E. 

Allocate main storage for I/O buffers and record storage area (RSA). 
Read index entries. 

Sort index entries into strings. 

Write intermediate strings of index entries to disk work file. 
Return. 

Determine validity of phase 1 execution. 

Determine if number of strings small enough to go to phase 3. If yes, skip phase 2. 
Indicate phase 2 entered. 
Pass control to #DDK2E (phase 2). 
Allocate main storage for I/O buffers. 
Read intermediate strings of index entries from work file. 
Merge strings of index entries together. 
Write intermediate strings of index entries to work file. 
Determine validity of phase 2 execution. 

Determine if number of strings small enough to go to phase 3. If no, repeat phase 2. 
Indicate phase 3 entered. 
Pass control to #DDK3E (phase 3). 
Allocate main storage space for I/O buffers. 
Read intermediate strings of index entries from work file. 
Merge strings of index entries together. 
^ Write final sort output back to index. 

Go to ^3 (to determine if merge is required). 



#DDKLL 



#DDK1A 



#DDK1E 



#DDK1G 

and 
#DDK1R 
Disk I OS 



#DDK1E 
Disk IOS 
#DDK1E 



#DDKEP 



#DDKLL 



#DDK2A 



#DDK2E 



#DDKWG 
Disk IOS 



#DDK2E 



#DDKWP 
Disk IOS 



#DDKEP 



#DDKLL 



#DDK3A 



#DDK3E 



#DDKWG 
Disk IOS 



#DDK3E 



#DDK3P 

and 
#DDK3W 
Disk IOS 



#DDKAA 



Diagram 4.7 (Part 2 of 3). Sort Index Entries for Indexed Disk File 
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DESCRIPTION 



MODULE/ 
ROUTINE 



Pass control to #DDKSS (Sort in Place). 

Assign main storage area for sort. 

Perform sort in place using quick-sort. 

Manage index segments entering record storage area (RSA). 

Call disk IOS to move index entries between disk storage and main storage. 

When sort is complete, determine if merge (#DDKMM) is required. 

If merge not required, go tojjj. 

Reset sort, merge, and sort-in-place bits in format 1 image. 

Update last primary index entry point in format 1 image. 

If error return code, update parameter list. 

Return to calling program. 



#DDKAA 



#DDKSS 



Disk IOS 



#DDKSS 



•#DDKAA 



Diagram 4.7 (Part 3 of 3). Sort Index Entries for Indexed Disk File 
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From: Printer IOS 



INPUT 



c 



•XR1 

IOB 
(for#SPINT) 

File index 
(for #SPDPQ) 

XR2 

TCB 

(for #SPALC) 

SFD 

(for #SPDPQ) 

Main Storage 



System Nucleus: 
#SPINT 



Transient Area : 
#SPALC 
#SPCLO 
#SPDPQ 



User Area 



User Program 



Printer IOB 
#SPOOL1 
TCB 
SFD 




PROCESS 



t> 



Q| Perform first time initialization and 
allocate file space as required 

Q Move print data and line control 
information to buffer 

Q Write buffer to spool file if buffer is full 

Q Update printer IOB 

Vm Perform spool intercept EOJ function 



m OUTPUT 



> 



Printer IOB 

#SPOOL1 

TCB 

SFD 



Disk 
IOB 

Buffer 



[input to 
' #SPCLO] 




To: Calling Program 



DESCRIPTION 



MODULE/ 
ROUTINE 



Q If first time call of this task, pass control to spool allocate (SPALC). 

Check if first time for this task to call spool allocate. 

If first time, go to U^3- If not first time, go to Q B»l. 

^M Assign and initialize task, spool file description (SFD), disk IOB, and buffer. Store SFD in task control 
block (TCB). 



#SPINT 



#SPALC 



Diagram 4.8 (Part 1 of 2). Perform Spool Intercept Function 
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DESCRIPTION 



MODULE/ 
ROUTINE 



£§ Search spool file master index for available spool file space. mm 

• If block groups available in #SPOOL1 -#SPOOL6, go to Kl^J. 

• If all extents are not allocated, go to Q Pffl. 

• Otherwise, issue SPOOL FILE FULL message with: 

— Two option (control cancel) — call end of job routine (#CTEI). 

— One option (retry) — try to find space again by going toM^y . 

— Zero option (proceed) — call spool file close (#SPCLO), post writer, halt, and try again to find space by 
going to Jy|§jB. 



Attempt to allocate additional disk space for spool file. 
^3 If no disk space available, issue NO DISK SPACE message and go toBHgglto try again. 

If first time, update data area sectors, master index, SFD, and disk IOB. 

Chain index entry to queue. 

Return. 

If not first time, update master index, SFD, and disk IOB. 

Chain data-only index to queue. 

Return. 
Eg If buffer space available, move entire print record to buffer and go to flBa . 
<fl Move as much of print record to buffer as space permits. 

Write buffer to spool file to free buffer space. 

If at end of spool block group, go tojjflfl^to allocate additional disk space. 

Move remaining print record to buffer. 
3 Mark intercepted print IOB complete (X'40'). 

Return to calling program. 
2 Call spool file close (#SPCLO). Terminator performs this function. 

Set end of file indicator. 

Write last record from buffer to disk. 

Update master index. 

If spool file close called by spool allocate, return to| 

Free SFD, disk IOB, and buffer. 

Return to calling program. 
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U Determine if output exists 
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Printed Output 



To: Control Storage End of Job 
Transient ($EOJ) 



DESCRIPTION 


MODULE/ 
ROUTINE 


Q Read master index to see if output exists. 
If queue is empty, call EOJ. 

If STOP PRT command issued, call end of job transient. 
Allocate printer if necessary. 
Return. 
If printer not available, halt and allow options to either wait for the printer or cancel. 

m Set up queue file description (QFD) to indicate entry specified: 

• First entry on queue. 

• Next entry on queue. 

• Stopped entry. 

Call spool queue manager (#SPQMG) to get entry specified. 


#SPWRT 
Disk IOS 
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DESCRIPTION 


MODULE/ 
ROUTINE 


Read master index to get address of queues using IOB provided. 

Based on QFD flag byte, search print queue for one of the following: 

• First on queue (class). 

• Next on queue (class). 

• Stopped entry. 

If entry found: 

• Place spool file address (SSSD) of entry in QFD. 

• Return control and specific entry (in disk buffer) to spool writer (#SPWRT), go to (£j. 

If specific entry not found: 

• Set on end-of-file/not found indicator (QFDEF) in QFD. 

• Return to spool writer (#SPWRT). 

• Call EOJ. 

Q Call spool file get. 

Retrieve first print line. 
Return. 

If forms change required, halt to allow operator to change forms. 
Return. 

Issue separator page halt if first time or if forms change message was issued. 
Return. 

Print separator pages if requested. 
Return. 

Perform page alignment if necessary. 
Return. 

Fill 512-byte print buffer in system nucleus with print data. 
Call printer IOS. 
Print the line from the buffer. 

If multiple copies requested and entry printed out: 

• Reset spool file description (SFD) to get first record in file. 

• Return to start of P. 

Q After all copies are printed, free up this entry and chain it from print queue to available queue. 
Return. 
Read spool file master index. 

If extent empty: 

• Update master index. 

• Return. 

• Free spool file extent. 

Go tojjto get next entry. 
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Program Organization 

Figure 4-7 shows the main storage map for keysort. 

Figures 4-8 through 4-14 show the control flow of func- 
tions used to run a job. 
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Figure 4-7. Keysort Main Storage Map 
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Figure 4-8. Disk Data Management Control Flow 
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Figure 4-9. Diskette Data Management Control Flow 
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Figure 4-10. Printer Data Management Control Flow 
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Figure 4-11. Work Station Data Management Control Flow 
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Chapter 5. Terminating a Job 



Introduction 

The functions that may be needed to terminate a job are: 

• Close common 

• Close printer 

• Close diskette 

• Close disk 

• Step termination 

• Job termination 

• Abnormal termination 

CLOSE 

The purpose of close is to: 

• Complete the processing of data in the output buffers. 

• Extract data from DTF blocks so the data set label can 
be updated to reflect the current status of the file. 

• Restore all opened DTFs to a preopen status. 

The close function is performed by the common close 
transient (#DMCL) and the necessary device-oriented 
close transients: 



To improve system performance, each of the device 
oriented modules are designed to be called only once for 
each DTF chain. Thus, each module will perform its func- 
tions for all required DTFs on the chain. It will search 
through the DTF chain to find all DTFs of its device type 
to be closed. 



Common Close (#DMCL) 

The common close transient (#DMCL) unchains the DTFs 
from the backward chain and then calls the appropriate 
device-oriented close transient. The disk close transient 
is called after all other DTFs are closed if a disk DTF is 
present. 

Input to common close is a chain of postopen DTFs 
addressed by index register 2. XR2 contains the address 
of the first DTF to be closed. 

Output from common close is a preopen DTF for each 
file closed. Common close returns control to the calling 
program or to the disk close transient (see Figure 5-2). 



Printer Close (within #DMCL) 

The device oriented close function for the printers (within 
#DMCL) completes the processing of data in the print 
buffers, restores the DTF to a preopen status, and frees 
space for the printer IOB within the assign/free area. Con- 
trol is passed to the next close transient or the calling 
program. 



Disk close 
Diskette close 



#DDCL 
#DRCL 



jftDMCL removes the DTFs from the backward chain and 
then calls the appropriate device-oriented close transients. 

All close modules are transients and reside as load modules 
in the system library. The close function is initiated by 
issuing an SVC with the close RIB (X'03') and with regis- 
ter 2 pointing to the DTF chain. The SVC processor will 
load the common close module (#DMCL) which, in turn, 
will call the appropriate device oriented close modules as 
needed. 



Work Station Close (within #DMCL) 

The device-oriented close function for work stations (within 
#DMCL) indicates the work station file is closed by setting 
off the file allocated bit (X'04') in DTF attribute byte two 
($DFAT2) and setting off the file opened bit (X'OT) in 
DTF attribute byte two. 
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Figure 5-2 shows the interrelationship of the transient close modules 
Figure 5-1. Close Input and Output Data Areas 
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Binary Synchronous Communication Close (#BSCL) 



Step Termination 



When a binary synchronous communication (BSC) DTF is 
encountered in a call to common close, the following is 
performed: 



Step termination provides a means of terminating the cur- 
rent program at the end of a job step and preparing the sys- 
tem to accept another program for execution. 



• A call to close (X'22 # ) is indicated in the BSC DTF 
operation code field, $DFOPC. 

• A return code (X'OO') is set in the communications spec- 
ification block (CSB) return code filed CSBDRTNC. 

• A task-to-task communication supervisor call is issued 
to indicate a close request to the BSC system task. 

Control is then returned to common close (#DMCL) to 
close any other DTFs on the chain. 



Diskette Close (#DRCL) 

When a diskette DTF is encountered in a call to common 
close, the diskette close transient module is called. For out- 
put files, close updates the end of data pointers in the 
active format 1 image. The data set label is written into 
the diskette VTOC. The DTF is restored to its preopen 
state and may be allocated and opened again for further 
processing. 

For input files, the data set label is rewritten in the diskette 
VTOC if the expiration date was changed. 



Step termination performs the following functions: 

• Terminate the User Program 

Step termination gets control from the user program 
when the user program has finished executing. Since 
control is not returned, step termination ensures that 
all user files are closed. Termination is then loaded 
into the user area in main storage. 

• Terminate the User Files 

All files used by the user program are processed. This 
may involve such operations as updating the disk VTOC 
and readying the format 1 for keysort. 

• Reset the System 

Resources are freed up, pointers updated, switches 
updated, and necessary system data areas are reinitial- 
ized so the system is ready to accept another program 
for execution. 

° Pass on Control 

Control is given to the initiator to enable the next step 
of the task to be processed. 



Job Termination 



Disk Close (#DDCL) 

The device-oriented close function for disk completes the 
processing of data in the output buffers, updates the data 
set label (in main storage) to reflect the current status of 
the file, and restores the DTF to a preopen status. This 
transient must then loop through the entire DTF chain to 
locate any other disk DTFs that are open. Control is 
returned to the calling program when processing is 
complete. 



TERMINATION 

When a job step or job is ended, there is a considerable 
amount of cleanup activity to be performed before process- 
ing can continue. Termination performs these functions. 



Job termination is used to prepare the system to process 
new jobs. 

Job termination performs the following functions: 

• Terminate the User Files 

This involves such operations as updating the format 5 
label and deleting the active format 1. 

• Terminate the Task 

If required, the terminal associated with the task is 
freed. The task control block and job control block 
are then freed and reset respectively. Various pointers, 
switches, and necessary system data areas are reinitial- 
ized so the system is ready to execute more tasks. 

• Pass on Control 

Control is given to the command processor to enable 
more tasks to be processed. 
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Abnormal Termination 

Abnormal termination allows the user to stop processing at 
other than normal termination points. 

Abnormal termination performs the following functions: 

• Any remaining steps in the job are flushed. 

• Files are not closed and, therefore, are left in one of 
the following conditions: 

— Shared files contain all updates or adds made prior 
to the abnormal termination. 

— Nonshared files contain all updates made prior to the 
abnormal termination. 

— Any adds made to nonshared files do not remain in 
the file (VTOC extents are not updated). 

— New files are removed from the VTOC. 

Termination Interface 

The termination interface transient (#CTEIF) is called in 
one of four ways (see Figure 5-3). 

• Supervisor (abnormal termination with a dump request). 
The control storage end-of-job transient ($EJ1) calls 
#CTEIF. 

• Command processor (abnormal termination due to a 2 
or 3 option to an inquiry or CANCEL request). The 
command processor calls #CTEIF. 

• User program (normal termination). The user program 
calls #CTEI F at step termination and job termination 
time. 

• SYSLOG (3 option to halt). 

Termination Interface (tfCTEIF) is the main interface 
between the program requesting termination functions and 
the termination processor (#CTEPR). #CTEIF performs 
initial termination. Its primary job is to: 

• Set termination indicators 

• Call termination user interface (#CTEGU) to get user 
into main storage 

• Call common close (#DMCL) to ensure user files are 
closed (normal termination) 

• Wait for any active lOBs to complete 

• Remove lOBs that have not started from the queue 
5-4 



• Call termination communication interface (#CTECM) if 
communication is supported 

• Call the attach transient (#SVAU) if no communication 
interface is required 

#SVAU loads and passes control to the termination proces- 
sor (#CTEPR). 

If a SYSLOG 2 option is taken, the user program terminates 
and continues on to the next job step. 



Termination processor (tfCTEPR) performs the three termi- 
nation functions: step termination, job termination, and 
abnormal termination. #CTEPR is loaded (by #SVAU) into 
14K of main storage starting at logical address X'C800'. 
The last 3K of #CTEPR contains the link edited modules, 
error recovery block cleanup for I/O SYSLOG (#SVERJ), 
command processor console SYSLOG EOJ message cleanup 
(#CPEJM), disk VTOC read/write (@CSVF) and termination 
keysort (#CTEKS). 

The disk VTOC read/write routine is used by the termina- 
tion processor to update the VTOC format Ts. 

The termination keysort routine determines if keysort 
activity is required and, if needed, loads keysort control 
(#DDKAA) into main storage. #DDKAA is loaded over 
the first 12K of #CTEPR (#CTEKS and @CSVF are in the 
remaining 2K). When keysort completes, #CTEKS returns 
#CTEPR to its original 14K area. The left side of the fol- 
lowing diagram illustrates main storage usage when termi- 
nation is processing and keysort is not required. The right 
side illustrates main storage usage when termination is 
using keysort. 
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The step termination function of #CTEPR is initiated at 
the end of each LOAD- RUN sequence within a procedure. 
Its primary job is to: 

Process files, utilizing disk and diskette VTOC read/ 
write and keysort control (#DDKAA) when needed 

Process library format 1's and file specification blocks 

Process source entry utility chain 

Performs clean up activity for spool function utilizing 
spool file close (#SPCLO) 

Free up allocated resources 

Free work station control blocks 

Release all data work stations for this task 

Reinitialize data areas as required 

RUN OXREF program (#MAXRF) as needed 

Clean up control storage SYSLOG halts (#SVERJ) 

Load the initiator (#CIML) into main storage 

The job termination function of #CTEPR is initiated when 
the last step of a procedure completes processing or a load- 
run sequence completes processing outside a procedure. At 
job termination time, step terminate logic executes fol- 
lowed by job termination logic to: 

• Process J type files 

• Ensure work station control blocks are free 



• Release all work stations for this task 

• Free task work area control blocks 

• Detach task control block 

• Release us'er main storage 

• Pass control to command processor 

The abnormal termination function of #CTEPR is initiated 
when a 3 option is taken to a halt, the CANCEL command 
is received, or a program check with a dump request is 
encountered. The program requesting the abnormal ter- 
mination function sets on the abnormal termination bit in 
its TCB. Abnormal termination executes step termination 
and job termination logic except that records added to files 
under certain conditions remain in the file. After the task 
is detached, the command processor is given control. 



Termination User Interface (#CTEGU) is a main storage 
transient called by #CTEIF if the user program is pushed 
out of main storage and must be pulled back in. 



Termination Communications Interface (#CTECM) is a 
main storage transient called by #CTEIF if a communica- 
tions interface is required. Its main functions are: 

• Call BSC to perform final cleanup for the user task 

• Dequeue and free the communication specification 
blocks (CSBs) 

• Call the attach transient (#SVAU) to load in, and pass 
control to, the termination processor (#CTEPR) 
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Method of Operation 

This section contains functional diagrams for routines 
needed to terminate a job. They are: 

• Close disk, diskette, printer, work station and data 
communications DTFs (Diagram 5.2) 

• Termination function (Diagram 5.4) 
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Diagram 5.0. Overview of Terminating a Job 
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To: Calling Program 



DESCRIPTION 



MODULE/ 
ROUTINE 



U If diskette DTF, goto H- 

Determine device type to unchain. 

Remove all DTFs from backward chain. 
Kl Determine device type to close. 

If work station DTF: 

• Indicate DTF not allocated. 

• Indicate DTF not open. 

• Repeat steps until all work station DTFs are closed. 

If binary synchronous communication (BSC) DTF: 

• Indicate a close call in BSC DTF operation code. 

• Set return code in the communications specification block (CSB) return code field. 

• Point XR1 at CSB. 

• Issue task-to-task communication SVC to indicate a close call to the BSC system task. 

• Repeat steps until all BSC DTFs are closed. 

If disk DTF, goto Q. 



#DMCL 



Diagram 5.1 (Part 1 of 2). Close Disk, Diskette, Printer, Work Station and Data Communications DTFs 
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DESCRIPTION 



MODULE/ 
ROUTINE 



If not last DTF on chain: 

© Point to next DTF on chain. 

O Return to$J 



If printer DTF to close: 

O Issue quiesce to printer to ensure completion of all I/O events. 

• Return DTF to preopen status. 

© Free IOB spac e in assign free area (SVC 07). 

© Return tor 



If last DTF closed, return to caller. 

Check file status to select appropriate close function: 
© If input file or locate mode output file^go to Ofc- 
© If final output move mode file, go toBljV 
© If output error caused end of volume^continue with I 

Issue permanent diskette output error message and initiate end of volume. 

JjJD Call diskette IOS. 

Write final output buffer to diskette if necessary. 

If error, and error recovery can not be accomplished, go toffw. 

Update fields in active format 1 for last (or only) volume of file. 

Restore DTF to preopen status. 

Write data set label into VTOC on diskette. 

If end of volume, call open next diskette volume (#DRNV). 

If last (or only) volume, return toUBI to unchain diskette DTFs. 

Close all disk DTFs: 

© If data buffer must be written, write it to disk. 

© If indexed access, flush index buffer. 

© Update format 1 in main storage. 

© Restore DTF to preopen status. 

© Repeat steps until all disk DTFs are closed. 

© Return to calling program. 



#DMCL 



WSIOCH 



#DMCL 



#DRCL 



#CLXS 



#DRCL 



Diskette IOS 



#DRCL 



#CSVI 



#DRCL 



#DDCL 



Disk IOS 



#DDCL 
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■ INPUT 



From: Supervisor, Command Processor, or 
User Program 

pi PROCESS 



( c 



-XR1 
iTCB 
"UCB 
Main Storage 



Transient Area: 
#CTEIF, 
#CTEGU 

and 
#CTECM 



User Area: 
#CTEPR 
#CPEJ 
_#SVERJ_ 
J" "~@CSVF 
I and 

I #CTEKS 
' (link edited) 



Active format 1 

VTOC format 1 

VTOC format 5 

SYSCOM 

AQE 

FSB 

TUB 

TWA 

WSB 

ACE 

PSB 

CSB 

SQB 

RB 

CIB 

PPSA 




t> 



Provide initial interface for termination 

Terminate job step 

Terminate job 

Perform abnormal termination when 
necessary 



> 



OUTPUT 



c 
c 



XR1 

TCB 

JCB 

Active format 1 

VTOC format 1 

VTOC format 5 

TWA 

BSC DTF 

ACE 

PPSA 




To: Initiator or 

Command Processor 



DESCRIPTION 



MODULE/ 
ROUTINE 



Indicate in the task control block (TCB): 

• Task is in termination. 

• Task is not cancelable. 

• Task is not inquirable. 



#CTEIF 



Diagram 5.2 (Part 1 of 3). Perform Termination Function 
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DESCRIPTION 



MODULE/ 
ROUTINE 



Pull the user program into main storage when required. #CTEGU 

Return. I #CTEIF 
^ Close all user files when required. #DMCL 

Purge/quiesce ACEs from system queues. | #CTEIF 

If communication systems in use: | #CTECM 

• Terminate tasks as required. 

• Dequeue and free communication specification blocks (CSB) (use control storage dequeue and free functions). 

Load and pass control to termination processor (#CTEPR) (use attach transient). #SVAU 

For job step termination, determine if keysort required (#CTEKS link edited with #CTEPR). | #CTEKS 

• Disk file (not diskette). 

• Indexed unordered load file. 

• T, P, or J type file. 

• Keysort bit on in format 1 . 

• Keysort not previously run for this task. 

If keysort is required: 

• Update AFA format 1 to indicate keysort running. 

• Load keysort control (#DDKAA) over first 12K of #CTEPR and pass control to it. 

• After keysort completes, set off keysort running indicator in AFA format 1 , reload #CTEPR, and pass 
control to it. 
Return. |~~ #CTEPR 

Clean up console SYSLOG queue (#CPEJ link edited with #CTEPR). | #CPEJ 

Perform error recovery block cleanup for I/O SYSLOG (#SVERJ link edited with #CTEPR). 

Process diskette files: #CTEPR 

• Free active format 1 block (use control storage free function). 

• Dequeue FSB from chain (use control storage free function). 

• Free FSB in assign/free area (use control storage free function). 

Process disk files: 

• Update VTOC format 1 's and format 5s as needed (use @CSVF - link edited with #CTEPR). I @CSVF 

• Maintain latest date indicator for T and P type files. | #CTEPR 

• Dequeue active format 1 's as required (use control storage dequeue function). 

• Free active format 1 block in assign/free area if required (use control storage free function). 

• Free high key bucket area in assign/free area for indexed files (use control storage free function). 

Process SEU member chain. 

Process work stations: 

• Release work stations (except requestors) #DWDM 

• Dequeue allocation queue element (AQE) for printer terminal unit blocks (TUB). | #CTEPR 

• Free work station specification blocks (WSB) (use control storage free function). 

Process printer specification blocks (PSB). 

Update job control block (JCB) as required. 

Reinitialize data areas as required. 

Deallocate all devices in device allocate table owned by task. 

If spool intercept being used, perform necessary spool cleanup. | #SPCLO 
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DESCRIPTION 



MODULE/ 
ROUTINE 



Return. 

Update spool file extents if necessary (SCA byte SCADCFG1). 

Return. 

Run cross reference resolver (#OXREF) program if needed. 

Load initiator mainline (#CIML) over #CTEPR in main storage and pass control to it. 

During normal job termination, perform the following: 

• Update format 5 and delete active format 1 for J type files. 

• Free control blocks for file FSBs and active format 1 's for J type files. 

• Ensure control blocks for terminal WSB's and PSB's are free. 

• Free task work area (TWA) control blocks. 

© Detach TCB, release users main storage, and reset swap area (control storage detach function. 

• Release the requester's terminal. 

• Free compiler information block (CIB) if necessary. 

• Pass control to command processor. 

| If abnormal termination, perform job termination logic and: 

• For old nonshared disk files (P or T type) : 

— Reset to zero, data area where new records added. 

— Put X'FF's in index overflow area where new record indexes were added. 

• For S type files, file remains on VTOC. 

Pass control to command processor. 



#CTEPR 



#CTES 



#CTEPR 



#MAXRF 



#CTEPR 



Disk IOS 



#CTEPR 



#DWDM 



#CTEPR 



#SVAU 



#DWDM 



#CTEPR 



Diagram 5.2 (Part 3 of 3). Perform Termination Function 
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Program Organization 

Figures 5.2 and 5.3 show the control flow required to 
terminate a job. 



User 
Program 



Common 
Close 

(#DMCL) 



Diskette 
Close 

(#DRCL) 




Disk 
Close 

(#DDCL) 



4 



Diskette 
End-of-Volume 

(#DRNV) 



Figure 5-2. Close Control Flow 
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Supervisor 
(abnormal 
termination — 
dump request) 



End of Job 
Transient 
($EJ1) 
Control Storage 



Command Processor 
(cancel) 

or 
User Program 
(normal termination) 

or 
SYSLOG 
(3 option to halt) 



Termination 
User 
Interface 
(#CTEGU) 



4 



» 



Termination 
Interface 

(#CTEIF) 



I 



Termination 
Processor 

(0CTEPR) 



Error Recovery 
Block Cleanup 
for I/O SYSLOG 

WSVERJ) 
Console SYSLOG 
Cleanup 

(#CPEJ) 



I 1 

Disk VTOC 

Read/Write 

(@CSVF) 

—and— 

Termination 

Keysort 

(#CTEKS) 



I 



MJi\mmtKMiim,-m,-wwvm&^iv-fy !s> 



'z:;-:4L.si^i$mm&Mm:m.mm:i 



mMwm$Bi!&r?: 



d:A,MJmaz^w~?p 



4> ^■iinm&mmm 



wmnmumL*u**um**,:s.«7r§± 



i^?^ 



»'«WWfH.iCTJ 1 ^4aP; t ^ 




Initiator (end of step) 

or 
Command Processor 
(end of job or abnor- 
mal termination) 



Common Close 



(#DMCL) 



Termination 
Communication 
Interface 
(#CTECM) 



Spool Intercept 
File Close 

(0SPCLO) 



Spool File 
Extents 
Update 
WCTES) 



Work Station 
Data 

Management 
(0DWDM) 



Diskette VTOC 
Read/Write 

(#CSVI) 



Keysort 
Control 

(#DDKAA) 



Figure 5-3. Termination Control Flow 
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Chapter 6. System Service Programs 



Introduction 

The system service functions are: 
Librarian facilities 
Library member protection 
Active format 1 area access routine 
Cross reference resolver 
Duplicate key display routine 
Print image verify routine 
Disk VTOC read/write 
Diskette VTOC read/write 
Message retrieve 
System input (SYSIN) 
System list (SYSLIST) 
System log (SYSLOG) 
History file put 
Supervisor task attach 
Supervisor task detach 
Syntax checker 
Information Retrieval 
Data management task transfer control 
Snap dump 



LIBRARIAN FACILITIES 

System programs and user programs are stored in a man- 
ner that makes them readily accessible to the system 
user. The programs are stored in libraries on disk and 
are called library members. Library members can be 
executable load modules (O-modules), procedures 
(P-modules), subroutines (R-modules), and source state- 
ments (S-modules). 

The librarian facilities provide a way to locate and access 
library members. The librarian facility programs are: 

• Find a library routine (#MAFLB) 

• Single name find routine (#MASFN) 
o Librarian find routine ($MAFND) 

o Source library get routine (#MASYG) or (#MASYL) 

Library record put routine ($MAPUR) 

• Library sector get/put routine ($MAPGS) 

Find a Library Routine 

The find-a-library transient (#MAFLB) finds a library by 
name. Given an 8-byte library name, it returns the 2-byte 
address of the format 1 for the named library. Zero is 
returned if the library does not exist. The library format 

1 address must be passed to librarian access routines when 
accessing members in libraries other than the system 
library or the designated user library. 

#MAFLB finds or builds the format 1 for the requested 
library in the active format 1 area (AFA). #MAFLB does 
not enqueue the requested library. However, if the 
requested library is not being used by the calling task, 
#MAFLB does chain the requested library's format 1 to 
the caller's job control block (JCB) with a library file 
specification block (FSB) and increment the use count 
in the format 1 . This ensures the existence of the 
requested library for the duration of the job step. 
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XR2 must contain the address of the leftmost byte of 
a 10-byte parameter list (see Figure 6-27). The first 8 
bytes must contain the library name. On input, the last 2 
bytes must be zero, or must contain the address of the JCB 
to be used by the command processor when building the 
JCBs. 



Single Name Find Routine 

The single name find transient (#MASFN) finds a specified 
library member by searching first in a user library, then in 
the system library. The user library may be the designated 
user library (from the LIBRARY statement) or another 
user library. The search may be restricted to only the user 
library or only the system library. 

On a regular call, #MASFN returns 17 bytes of the direc- 
tory entry (bytes 10 through 26) and indicates if the mem- 
ber was found in the user library or the system library. 
When #MASFN is called with a request to build the loader 
parameter list, the first 10 bytes of the loader parameter 
list are returned. The user must set the last 2 bytes (the 
load address) of the loader parameter list. The load 
address can be set with the system find parameter list 
macro ($FNDP). 

#MASFN enqueues the library directory for the duration 
of the search. 

When the requested member is not found, #MASFN 
returns the parameter list unchanged or issues an error 
message and terminates if building the loader parameter 
list. 



Librarian Find Routine 

The librarian find routine ($MAFND) locates directory 
entries by full or partial name. The caller provides a 
buffer, specifies the library to search, gives the member 
type or types, and gives the member name or partial 
name and length. On each call, $MAFND returns the 
address in the buffer of the next directory entry meeting 
the criteria or indicates that no more members meet the 
specified criteria. The caller may update the found 
directory entry and then have $MAFND write the 
updated directory entry back to disk. 

The library to search is specified by giving the library 
format 1 address (returned by #MAFLB) or by giving 
zero and indicating the designated user library (library 
from the LIBRARY statement) or the system library or 
both. If both are given, the designated user library is 
searched first for any member meeting the specified 
criteria. Only if no members are found is the system 
library searched. The searched return indicator is set to 
indicate if the member was found in the designated user 
library or the system library. $MAFND enqueues the 
library directory on the first call and dequeues it on the 
last call. 

$MAFND may be executed as a transient version 
($MALFN) or loaded into the caller's area. XR2 must 
contain the address of the leftmost byte of a 24-byte 
parameter list (see Figure 6-30). The transient version 
requires a 25-byte work area following the parameter list. 



Source Library Get Routine 



The parameter list is 18 bytes for a regular call or 12 bytes 
for a loader call. XR2 must point to the leftmost byte. 

If the system find include version (@MASFN) is link- 
edited to another module, the load request is not sup- 
ported. The link-edited module must have addressability 
to the nucleus and must provide a buffer. 



The source library get transient (#MASGT) retrieves 
source or procedure members from a library one record 
per call. If requested, #MASGT finds the member and 
updates the parameter list for a get or returns a not found 
indicator. The caller specifies the library to search. 

For each call, the next record is expanded into the caller's 
record buffer. If the actual record length is less than the 
record buffer, the record is transferred intact and the 
buffer is padded with blanks. If the actual record is longer, 
it is truncated and a truncate indicator is set. If requested, 
the last nonblank character in the record will be indicated. 
An EOF indicator is set when the last record is returned. 
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The caller must provide a record buffer and an I/O buffer 
of at least one sector. XR2 must contain the address of 
the leftmost byte of a 19-byte parameter list (see Figures 
6-31 and 6-32). The source library get transient requires 
a 15-byte work area following the parameter list. The 
source library get routine include version (#MASYL), may 
be link-edited with or loaded by other modules to retrieve 
requested library members. It does not, however, support 
the find request function. 



Library Record Put 

The library record put routine ($MAPUR) places source or 
procedure records into a specified library in compressed 
format. The records must be from 40 to 1 20 bytes in 
length. 

The library control block (LCB) must be supplied by the 
caller as a parameter list. XR2 must point to the leftmost 
byte. (See the Data Areas Handbook for the LCB format). 

The caller's first call to $MAPUR must be an open request 
for the output library. If the open is successful, the caller 
makes one put request call for each record. After the last 
record, the caller must call $MAPUR with a close request. 

For the open request, $MAPUR calls the library open/close 
routine ($MACOM or $MALCO). For each put request, 
$MAPUR moves the record to the caller-supplied I/O 
buffer, compressing the record in the process. When the 
I/O buffer is full, it is written to the library. If available 
library space is exceeded, SYSLOG (#CLSG) is called to 
issue a message. In responding to the message, the opera- 
tor can either cancel the job, or accept the partial member 
that was written. If the operator accepts the member as 
written, $MAPUR closes the library with the partial 
member and indicates to the caller that the member has 
been closed. For the close request, $MAPUR closes the 
output library by calling library open/close ($MACOM or 
$MALCO). 

The library control block (LCB) must be supplied by the 
caller as a parameter list. XR2 must point to the leftmost 
byte. (See the Data Areas Handbook for the LCB format.) 



Library Sector Get/Put 

The library sector get/put routine ($MAPGS) retrieves 
members from or places members into a specified library. 
Members are accessed in block or sector mode without 
checking content. 



When $MAPGS is called, the user must request either a get 
or a put operation. 

If a get is requested, the user may first request that the 
single name find routine (#MASFN) locate the specified 
member. If #MASFN cannot find the member in the 
system or user libraries, the completion code (LCBCOMP) 
is set to indicate this fact and control returned to the 
calling program. If the find is successful, $MAPGS calls 
disk IOS to read the requested sectors into a user provided 
I/O buffer. Several calls to disk IOS may be required to 
read the entire member unless the I/O buffer is large 
enough for a single read operation. The successful com- 
pletion bit in LCBCOMP is set after each read. After the 
entire member is retrieved, a bit in the completion code 
(LCBCOMP) is turned on to notify the user. 

If a put is requested, the caller of $MAPGS can request 
the library open/close routine ($MACOM or $MALCO) to 
open the specified library. When the library is open, 
$MAPGS is called with a put request and then $MAPGS 
calls disk IOS to write the member sectors from the user 
supplied I/O buffer into the specified library. On the last 
put call, after the entire member is written to the library, 
$MACOM or $MALCO is called to close the library. 
Control is then returned to the calling program. 

The library control block (LCB) must be supplied by the 
calling program as a parameter list. XR2 must point to 
the leftmost byte. (See the Data Areas Handbook for the 
LCB format.) 



LIBRARY MEMBER PROTECTION 

The library member protection routine (#MAMPM) is a 
refreshable transient. #MAMPM has two functions: 

• Prevent source entry utility (SEU) tasks from updating 
a library member if that member is currently being 
updated. 

• Prevent initiation of an SEU task when an SEU user is 
inquiring into SEU 

To perform these functions, #MAMPM builds an SEU 
member chain. If either condition occurs, the SEU task is 
immediately canceled. Otherwise, an element is added to 
the chain. 
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When the library member protection routine (#MAMPM) 
is called, it enqueues the SEU member chain queue header 
at level 3. This provides #MAMPM exclusive use of the 
member chain for the entire duration of the program. 
#MAMPM then assigns space to the assign/free area for the 
member chain element it plans to build (see Figure 6-1 ). 
This area is then added at the end of the member chain. 

Next, the member chain element is built by retrieving the 
fields that are contained in the element. The task control 
block (TCB) address of the user task is obtained and moved 
to the member chain element. Also moved into the mem- 
ber chain element is the terminal ID, obtained from the 
terminal unit block (TUB). The terminal ID is also put 
into the 2-byte field at the end of the single name find 
parameter list. Single name find (#MASFN) is then called 
to find the member from the specified library. If the find is 
successful, the sector address of the member is moved into 
the member chain element. If the find is not successful, a 
null member address of zeros is moved into the member 
chain element. This indicates that a new member is being 
created by the user. The chain is then searched. The ter- 
minal ID of the task is compared with the terminal ID 



of each element on the chain. If a match occurs, it indicates 
that the same user has made an inquiry back into SEU. A 
message is then displayed to the user through SYSLOG, 
and the user task is cancelled. Next, the member address 
in the member chain element is compared with the mem- 
ber address in each block of the chain. The only valid 
match is if the member address is zero, otherwise, it indi- 
cates that another SEU user is updating that member. The 
type and name of the member along with a message is 
displayed to the user through SYSLOG, and the user task 
is terminated. If an error occurs, the member chain ele- 
ment is freed from the member chain during termination. 
If the chain is searched and the end is reached without 
error, the member chain queue header is dequeued and 
control is returned to the user. 

The single name find parameter list (see Figure 6-28) with 
an additional 2-byte area for terminal ID must be supplied 
by the calling program. XR2 must point to the leftmost 
byte of the list. 



System Communications Area 




Assign/Free Area 



Member chain 



Member SSS 



TCB Address 



Terminal ID 



Figure 6-1. SEU Member Chain 
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ACTIVE FORMAT 1 AREA ACCESS ROUTINE 

The active format 1 area access routine (#CSAF) is a 
transient used to manage requests for get and put of for- 
mat 1 blocks in the active format 1 area (AFA). 

#CSAF supports the following functions: 

• Get by label 

• Get by name 

• Get by address 

• Put 

#CSAF examines the function byte in the user provided 
AFA access parameter list to determine the service 
requested (see Figure 6-33). 

If the get label request is for unit F1, #CSAF searches the 
AFA chain for a format 1 with the specified label. When 
found, #CSAF places the format 1 address in the para- 
meter list. The request may be further qualified by date 
and ID verify. Date verify compares the creation date in 
the format 1 to the date in the caller's parameter list. ID 
verify causes the allocation queue element (AQE) chain 
associated with the format 1 to be searched for at least 
one AQE containing the current task control block (TCB) 
address. "If the caller requests a move, #CSAF places the 
format 1 in the caller's I/O area. The parameter list return 
code is updated when the operation is completed. Control 
is returned to the calling program. 

If the request is get label for unit 11, #CSAF searches the 
file specification block (FSB) chain pointed to by the job 
control block (JCB). The FSB contains a pointer to an 
associated format 1. #CSAF examines each format 1 for 
the specified label and unit. The request may be further 
qualified by date verify. If the caller requests a move, 
#CSAF places the format 1 in the caller's I/O area. The 
parameter list return code is updated and control is 
returned.to the calling program. 

If the request is for get name, #CSAF searches the file 
specification block (FSB) chain pointed to by the job 
control block (JCB) for the specified name. The FSB 
contains the format 1 address. If the format 1 contains 
the correct unit field, #CSAF places the format 1 address 
in the caller's parameter list. If the caller requests a move, 
#CSAF places the format 1 in the caller's I/O area. The 
parameter list return code is updated and control returned 
to the calling program. 



If the request is for get by address, #CSAF moves the 
format 1 at the specified address to the caller's I/O area. 

If the request js for put format 1, #CSAF replaces the 
format 1 in the AFA, at the address specified in the caller's 
parameter list, with the format 1 in the caller's I/O area. 

XR2 must point to the leftmost byte of the user-provided 
AFA access parameter list (see Figure 6-33). 



CROSS-REFERENCE RESOLVER 

The cross-reference resolver routine (#MAXRF) places 
loader information in the where-to-go (WTG) table. With- 
out a WTG table, the caller of an SSP module must first 
call system find to build a loader parameter list, then call 
the loader to load the module. If the caller supplies a WTG 
table, the call to system find is eliminated. #MAXRF also 
fills in format index tables in SSP modules. 

#MAXRF is run any time SSP load members in the system 
library are moved. This may be after RELOAD, system 
library compress, or replacement of an SSP load member. 

#MAXRF reads the system library directory and builds a 
resident table of all SSP load modules. Each entry contains 
the second through fifth character of the name, the disk 
address, the number of text sectors, the RLD displacement, 
a WTG table indicator, and a format index table indicator. 
#MAXRF builds a main storage format index from the 
index sectors of the command processor screen format 
modules. 

#MAXRF then uses information from the resident table to 
find and read the last four text sectors of each module 
with a WTG or format index table. #MAXRF calculates 
the end of the module by using the number of text sectors 
and the RLD displacement. For each module in the WTG 
table, #MAXRF searches the resident table for a matching 
entry. If a match is found, the loader information is moved 
from the resident table to the module's WTG table. If a 
match is not found, loader data for the no-op routine 
(#MANOP) is placed in the WTG table. When executed, 
#MANOP issues the error message. For each module with 
a format index table, #MAXRF uses the module's format 
index table displacement to get information from the main 
storage format index to the format index table. The last 
four text sectors are then written back to their original 
location on disk. 
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The format index table and WTG table must be the last 
bytes in the module. Each must be preceded by X'FFFF'. 
If both are present, the format index table must precede 
the WTG table. 



PRINT IMAGE VERIFY ROUTINE 

The printer image verify routine (#CSIM) is a transient 
program that has four functions: 



Each entry in the WTG table is 9 bytes, in the format 
CCCCSSSnR: 



CCCC = second through fifth character of called 

module name 
SSS = disk address of called module 1 
n = number of text sectors j 

R = RLD displacement J 



#MAXRF 
loads these 



Each entry in the format index table is 9 bytes, in the 
format DDSSSfnll: 



DD = displacement into format index sectors 

SSS = disk address of screen format 

f = number of FDT 

n = number of text sectors 

II = input length of screen 



#MAXRF 
loads these 



DUPLICATE KEY DISPLAY ROUTINE 

The duplicate key display routine (#CSDK) is a transient 
that display the duplicate key and returns the operator- 
selected option to the calling program. 

When #CSDK is called, the user must supply a where-to-go 
table specifying #CSDK, an 80-byte message buffer area, 
and the duplicate key halt parameter list. The calling pro- 
gram, by way of the parameter list, provides pointers to the 
key and message build buffer (see Figure 6-34 for the 
duplicate key display parameter list format). #CSDK calls 
SYSLOG (#CLSG) to output a message indicating a dupli- 
cate key was found in the specified file. The operator 
must indicate whether the key is to be displayed in 
EBCDIC or converted to hexadecimal notation. After the 
operator responds to the message, #CSDK moves the dupli- 
cate key to the message build buffer and calls #CLSG to 
display the key and the options specified in the duplicate 
key display parameter list. When the operator responds, 
the requested option is placed in the parameter list and 
control returned to the calling program. 

XR1 must point to the leftmost byte of the user-provided 
parameter list for duplicate key display. 



• Set the print image 

• Set the forms number 

• Indicate page separator information for spool 

• Set lines per page 

#CSIM processes all printer specification blocks (PSBs) 
associated with the calling task. Multiple printers may be 
processed with one call to #CSIM. 

The PSB contains a flag byte, forms number, and lines- 
per-page fields used by #CSIM. #CSIM scans the PSB 
chain associated with the calling task and performs the 
following functions: 

o Image processing: If the PSB flag byte indicates pro- 
cessing is required, #CSIM compares the current print 
image to the work station configuration record. If they 
do not match, SYSLOG displays a message to the 
operator. The operator, after changing the print belt, 
replies to the message. #CSIM then sets the new print 
image into the printer control unit. 

o Forms processing: If the PSB flag byte indicates forms 
processing is required, #CSIM compares the current 
forms number in the TUB to the PSB forms number. 
If they do not match, SYSLOG displays a message to 
the operator. The operator, after changing the forms, 
replies to the message. #CSIM then sets the new forms 
number into the printer terminal unit block (TUB). 

• Spool separator page processing: If the calling task is 
spool, #CSIM prompts the operator to indicate if 
separator pages are required. If the operator's reply is 
option 1, #CSIM updates the PSB flag byte to indicate 
separator pages are required. 

• Lines per page processing: If the PSB flag byte indicates 
lines per page processing is required, #CSIM sets the lines 
per page from the PSB into the printer control unit. 

No caller parameter list is required to execute #CSIM. The 
PSB, however, must be initialized when #CSIM is called 
(see Data Areas Handbook for PSB format). 
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DISK VTOC READ/WRITE 

The disk VTOC read/write routine is supplied in two 
versions. #CSVF is a transient, and @CSVF is designed to 
be link-edited with system routines that address the 
nucleus. 

Disk VTOC read/write performs three major functions: 

• Format 1 read 

• Format 1 write 

© Existence test 

The program calling disk VTOC read/write must supply a 
parameter list with leftmost byte address in XR2 (see the 
Data Areas Handbook for disk VTOC read/write parameter 
list format). 

Disk VTOC read/write examines the function byte in the 
parameter list to determine the service requested: 

o Format 1 read: disk VTOC read/write uses the scan 
function of disk IOS. A scan mask containing the 
requested label, and the date as an option, is passed to 
disk IOS by way of a pointer in the IOB. When the 
format 1 is located in the VTOC, disk IOS places the 
sector number in the IOB and disk VTOC read/write 
reads the sector containing the format 1 into the data 
area. The format 1 is then moved from the data area to 
the calling program's I/O area and control returns to the 
caller. 

There are four types of format 1 read requests: 

— Read next 

— Read next same label 

— Read specific 

— Read by sector displacement 



Format 1 read request processing varies depending on 
the type of request. The caller also has the option of 
requesting a date verify. Date verify uses a scan mask 
containing the label and date. This allows the caller to 
select a specific file from a group of files with the same 
label. Without date verify specified, the format 1 with 
the latest date is selected. If the format 1 read request 
is: 

— Read next, the parameter list displacement byte is 
tested for a first request. If it is the first request, 
the scan starts at the first sector in the VTOC format 
1 area. If it is not the first request, the parameter 
list sector number is incremented and the scan 
started in the next sector. The scan is for the next 
logical format 1 in the VTOC and no compare for 
label or date is made. 

— Read next-same label, processing is the same as a 
read next request except the scan mask is set up to 
compare on a specified label. 

— Read specific, the scan starts at the VTOC format 1 
area beginning. The scan is for a format 1 containing 
the specified label and optional date. 

— Read by sector displacement, the disk sector 
specified in the parameter list is read and the format 
1 at the specified displacement moved to the caller's 
I/O area. 

• Format-1 write: disk VTOC read/write uses disk IOS 
to read the sector specified in the parameter list. The 
format 1 in the caller's I/O area is moved into the sector 
just read from disk. Disk IOS is called again to write the 
updated sector back to disk. 

o Existence test: processing is the same as format 1 
read-read specific processing except the format 1 is not 
moved into the caller's I/O area. The sector/displace- 
ment and the return code are updated in the parameter 
list. 

Figure 6-13 shows disk VTOC read/write control flow. 



DISKETTE VTOC READ/WRITE 

Diskette VTOC read/write is transient and consists of three 
modules. The mainline module (#CSVI) process the 
requests and routes control to the two conversion modules 
(#CSVJ and #CSVK) as required. 
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Diskette VTOC read/write performs three major functions: 

• Convert format 1 's and header 1's 

• Prepare diskettes for processing 

• Format 1 read/write 

The program calling diskette VTOC read/write must supply 
a parameter list with the leftmost byte address in XR2 
(see the Data Areas Handbook for diskette VTOC read/ 
write parameter list format). 

#CSVI examines the function byte in the parameter list 
to determine the service requested: 

• Convert header Vs: #CSVJ reads the diskette VTOC, 
converts the header 1 's to format 1 's and places the 
format 1 's into a diskette VTOC area on disk. Subse- 
quent diskette format 1 read/write requests access this 
area on disk. 

• Convert format Vs: #CSVK reads the diskette VTOC 
area on disk, converts the format 1's to header 1 's and 
places the header 1 's into the diskette VTOC on diskette. 

• Prepare diskette: #CSVI issues a recalibrate request for 
the diskette. The volume label is read and verified. The 
volume label and physical attributes are placed into the 
system communication area (SCA). A 4-byte lock 
number is also placed into the SCA and written on the 
diskette. #CSVJ is then called to create the diskette 
VTOC area on disk (convert header 1 's function). 

• Format- 1 read: The diskette format 1 in the diskette 
VTOC area on disk (placed on disk by #CSVJ) is read 
the same as by the format 1 read function of disk 
VTOC read/write. Latest date processing, however, is 
not supported. (See format 1 read function in 
Diagram 6.12.) 

• Format-1 write: This function is identical to disk VTOC 
read/write, #CSVF. (See format 1 write function in 
Diagram 6.12.) 

• Existence test: The check for the existence of a 
specific format 1 is performed the same as by disk 
VTOC read/write, #CSVF. (See existence test func- 
tion in Diagram 6.12.) 

Figure 6-14 shows diskette VTOC read/write control flow. 



MESSAGE RETRIEVE 

The message retrieve routine (#MGRET) is a transient that 
locates the message text of a specified message identifica- 
tion code (MIC). 

#MGRET ensures a valid message member specification by 
checking the message retrieve parameter list for valid 
indicators and the message member pointer in the appro- 
priate communication region for a nonzero SSS (see the 
Data Areas Handbook for message retrieve parameter list 
format). Disk I OS is then called to locate the message 
member sector by scanning the message member for the 
sector identified by a MIC greater than or equal to the one 
requested. #MGRET locates the desired message by read- 
ing the message member sector, looking for the specified 
MIC. When the message is found, #MGRET blanks the 
caller's buffer, places the message in the buffer, and places 
the message text length in the parameter list. If an error is 
detected, the error MIC is placed in the parameter list. 
Upon completion, control is returned to the calling 
program. 

Figure 6-1 5 shows the control flow for the message 
retrieve routine. 



SYSIN 

SYSIN performs two major functions: 

• Retrieve records from the keyboard 

• Retrieve records from library procedure members 

Records retrieved from the keyboard are returned directly 
to the calling program. If records are retrieved from a 
procedure member, SYSIN performs: 

• Substitution (#CLPR or #CLSB) 

• If statement processing consisting of: 

- Existence testing (#CLFX, #CLSM, #CLAC, or 
#CLBL) 

— Character string comparisons (#CLSS) 

The SYSIN mainline module (#CLSS) uses the above 
routines to perform the various functions performed when 
SYSIN retrieves library procedure members. (See Figure 
6-16 for SYSIN control flow.) 

When a user program requests SYSIN services, the SYSIN 
Load Transient (#CLSN) is loaded into the transient area. 
#CLSN then loads and passes control to #CLSS at location 
X'DDOO' (logical address). 



6-8 



Licensed Material— Property of IBM 



When the initiator is processing, #CLSS is link-edited with 
the initiator. A 2K block of main storage starting at 
X'F800' (logical address) is reserved by #CLSSto handle 
the SYSIN routines used to process procedure members. 
This 2K block of main storage may also be used by the 
initiator to handle OCL statements, and history file put 
(@HFPUT). 

The SYSIN calling program must place the leftmost byte 
address of the SYSIN parameter list in XR2 (see Data 
Areas Handbook for SYSIN parameter list format). 

The history file put routine (@HFPUT) and the source 
library get routine (#MASYL) are link-edited with the 
SYSIN mainline module. #MASYL retrieves procedure 
records and @HFPUT places records in the history file. 



When the SYSLIST transient is called, the user must supply 
a SYSLIST parameter list with the leftmost byte address 
in XR2. Control is then passed to #CLST via the SLIST 
macro. If the display screen is to be the SYSLIST device, 
#CLST transfers control to #CLSC, which is loaded in the 
transient area. 

When loadable SYSLIST is called, the user must supply a 
SYSLIST parameter list with the leftmost byte address in 
XR1. Control is passed via a branch to the specified user 
load area. Prior to passing control, the user must have 
executed macro SLSTL, to load the proper module into 
the load area. 

The SYSLIST parameter list may be in one of two formats: 
TYPE 1 or TYPE 2. (See the Data Areas Handbook for 
SYSLIST parameter list formats.) 



SYSLIST 

SYSLIST provides a means of printing or displaying system 
output to the user. SYSLIST executes as either a transient 
or a loadable module. 

The SYSLIST transient interface consists of the following: 

• #CLST: SYSLIST printer transient. This module is 

always loaded first on every transient call to 
SYSLIST. 

• #CLSC: SYSLIST work station transient. 

• SLIST: SYSLIST macro that provides linkage to the 

transient module (#CLST). 

The loadable SYSLIST interface consists of the following: 

• #CLSP: Loadable SYSLIST printer module. 

• #CLSW: Loadable SYSLIST work station module. 

• SLSTL: SYSLIST load macro that loads either 

#CLSP or #CLSW into the specified user load 
area. 

The SYSLIST printer modules (#CLST and #CLSP) list 
system output on the system or specified work station 
printer. The SYSLIST work station modules (#CLSC and 
#CLSW) list system output on the work station display 
screens. 

Two types of system output are listed by SYSLIST: Type 
1 output comes from a message member and Type 2 output 
comes from a system program. 



SYS LOG 

SYSLOG provides a method for printing or displaying 
messages. 

Messages are printed only if the system is in single program 
mode and the printer is the SYSLOG device and not busy. 

Six types of messages may be displayed on the work station 
or operator's display screen. The six message types are: 

• Type 1: Messages from a message member without 

a response 

• Type 1R: Messages from a message member with a 

data response 

• Type 2: Messages from a user program without a 

data response 

• Type 2R: Messages from a user program with a data 

response 

• Type 3: Messages from a user program with a 

format line request 

• Type 4: Messages from a message member with 8 

bytes of data inserted at the beginning of 
the message 

The SYSLOG mainline module (#CLSG) can be called by 
way of the SYSLOG push/pull transient (#CLXS). 



Introduction 6-9 



Licensed Material— Property of IBM 



When loaded into the transient area, #CLXS pushes 10K 
of user program from main storage to disk. It then loads 
#CLSG into main storage at location X'C900' (logical 
address). #CLXS also moves the parameter list, ATR, 
SSN of #CMWO and, if the message type is 2, 2R, or 3, 
the message from the transient area to the first sector of 
the user area just cleared. 

#CLSG uses printer IOS (IPTR) to output messages to the 
printer and uses the command processor (#CMWO) to 
output messages to the display station display screen. 

History file put (@HFPUT) and message retrieve 
(@MGRET) are link edited with #CLSG. @MGRET is 
used to retrieve type 1, 1 R, and 4 messages from the 
proper message member. @HFPUT is used to log messages 
and responses to the history file when requested. 

The caller of SYSLOG must supply a parameter list with 
XR2 containing the leftmost byte address (see the Data 
Areas Handbook for the SYSLOG parameter list format). 

If option 3 (cancel request) is returned to SYSLOG in 
response to a message, #CLSG calls the end-of-job transfen 
(#CTEI) to terminate the job. #CLSG returns control to 
#CLXS. If #CLXS is called by #CLSG, it is to move the 
SYSLOG parameter list back to the transient area and to 
pull the 10K of user main storage previously pushed to 
disk back into the user area. If an option response or data 
response was received, #CLXS passes the response to the 
caller. If the option is D, a main storage dump is performed. 



HISTORY FILE PUT 

History file put documents information such as OCL and 
utility control statements entered by the system operator, 
error messages, and operator responses. 

History file put exists either as a transient (#HFPUT) 
which executes in the transient area or as a link-edit 
module (@HFPUT) along with the user program and 
branched to by user program request. 



The history file is not a data file but is located in the 
system area on disk. (See the Data Areas Handbook for 
history file description and format.) Entries are placed in 
each sector of the history file, one after another, until the 
point is reached where the next entry would extend 
beyond the sector. In this case, the next entry is placed in 
the following sector and the current sector pointer is 
updated. When the point at which there is no following 
sector is reached, the entry is placed in the sector at the 
beginning of the file. This condition is known as wrap- 
around. The entry last placed in the history file is the 
current entry. 

The system communication area (SCA) contains the history 
file status: 

• SCAHIST: history file beginning sector address 

• SCAHFSIZ: history file size in sectors 

• SCAHFCUR: history file sector containing current 

entry 

• SCASYS1: error condition if SCAHFERR set 

If the SCAHFERR bit is not set in SCASYS1, #HFPUT 
(or @HFPUT) reads the history file status from the SCA 
to determine the history file start address, the history file 
size, and the address of the current entry. #HFPUT uses 
this information to read the sector containing the current 
entry from disk and places it into the history file I/O 
buffer. Next, #HFPUT removes all trailing blanks from 
the input text, and moves the text into the history file 
data buffer. Additional information about the entry is also 
placed in the history file data buffer: the terminal identi- 
fier is read from the terminal unit block (TUB), the user 
identification is read from the job control block (JCB) or 
terminal unit block (TUB), the job identification is read 
from the JCB, the current time is extracted from the sys- 
tem timer routine ($TOD), and control bits are set 
indicating if the entry was broadcast and if the entry was 
displayed to the operator. 

The completed entry is moved into the history file I/O 
buffer immediately following the previous current entry. 
If the new entry will not fit into the current sector, it is 
placed into the next sector, and the SCA current sector 
address is updated. A maximum of four lines of equal 
length may be placed into the history file on each call. 
Disk IOS wntes the entry from the history file buffer to 
the history file on disk. 
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The history file put routine caller must provide a 10-byte 
parameter list with XR2 containing the leftmost byte 
address. (See the Data Areas Handbook for the history 
file put parameter list format). 



SUPERVISOR TASK ATTACH TRANSIENT (#SVAT) 

The supervisor task attach routine (#SVAT) is a transient 
used to attach a new task to the system. 

$SVAT assigns the task control block (TCB) to run the new 
system task. The number of 2K main storage blocks 
required to start the new task is then calculated. This is 
the largest program size required to load the program 
mainline or the size required to execute the program. 

If enough main storage and swap area are available to run 
the task, #SVAT assigns a request block (RB), action 
control element (ACE) — if required, and swap area. All 
necessary fields in the TCB are initialized to start the task. 
The new TCB is then placed on the swap-in-queue with the 
dispatching address pointing to the bootstrap code in the 
RB. 

Input to the supervisor attach transient is the attach para- 
meter list supplied by the calling program. XR1 contains 
the address of the leftmost byte of the attach parameter 
list (see Figure 6-35 for the format and content of the 
parameter list). 

Output from #SVAT is the new TCB placed on the swap-in 
queue. XR1 contains either the address of the new task's 
TCB or the value of the error return code. 

After execution, #SVAT returns control to the calling 
program or to a transient pointed to by the attach 
parameter list. 



SUPERVISOR TASK DETACH OR CHANGE ORIGIN 
POINT (#SVAU) 

The supervisor task detach or change origin point routine 
(#SVAU) is a transient used to: 



Change Point of Origin 

A task's point of origin within main storage may be 
changed upon request. When control is passed from the 
scheduler to the user program or from the user program to 
the scheduler, a task's location in main storage may 
require changing. 

#SVAU determines if enough main storage space is avail- 
able to load the requested program. The old swap area on 
disk is freed if enough main storage area exists and the old 
swap area is larger than the required swap area. The old 
swap area is also freed if the required swap area is smaller 
than the old swap area and the task is in termination. 

All main storage assigned to the task, except the first 2K 
bytes, is then freed. The bootstrap code used to start the 
task is moved to the first 2K byte area and control passed 
to the program indicated in the attach parameter list. 



Detach Task 

The task detach function is called when a task goes to end 
of job. 

#SVAU frees the task's main storage area and swap area on 
disk. The task's request blocks (RBs) and job control 
block (JCB) are then freed if required. Finally, the task 
control block (TCB) is freed. When the detach function is 
complete, control is returned to the dispatcher (control 
storage) and the transient area is freed. 

Input to the supervisor detach and change origin point 
transient is the attach parameter list supplied by the calling 
program. XR1 contains the address of the leftmost byte 
of the attach parameter list. (See Figure 6-35 for the for- 
mat and content of the parameter list.) 

Output from #SVAU is a new point of origin for the task or, 
if requested, the task is detached from the system. 

If an error condition is encountered while executing 
#SVAU,the error return code is placed in XR1 and 
returned to the calling program. 



• Change a task's point of origin 

• Detach a task from the system 
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SYNTAX CHECKER (#USYX) 

The syntax checker (#USYX) performs the following 
functions: 

• Checks for a valid verb in a control statement 

• Indicates in the communication table the parameters 
specified in the control statement 

• Checks that parameter values are valid 

• Places parameter values (or values that are to be 
substituted for parameter values) in the communication 
table 

• Checks that parameters are used in valid combinations 

• Indicates in the communication table any syntax errors 

The syntax checker consists of a single phase, #USYX, 
that resides in the system library. 

Input to the syntax checker consists of: 

• Syntax checker parameter list 

• Verb list 

• Communication table 

• Syntax specification module 

• Control statement 

Note: The syntax checker parameter list, communication 
table, and syntax specification module are described in the 
Data Areas section of this chapter. 

When the syntax checker is called: 

• The calling utility places the address of the syntax 
checker parameter list in register 2 

• The syntax checker parameter list indicates the 
address of the verb list and communication table 

• The communication table specifies the name of the 
syntax specification module to load from the system 
library 



Output consists of the communication table returned to 
the calling utility with the following information: 

• Parameters found in the control statement 

• Parameter values 

• Syntax errors that were detected 

The syntax checker requires 4.5K bytes of main storage 
for program execution plus space for the syntax specifica- 
tion module, if required. 

INFORMATION RETRIEVAL (#SVINF) 

The information retrieval transient (#SVINF) is invoked by 
the $INFO macro instruction in the user's program. 
#SVINF provides the user with the ability to access certain 
fields within privileged control blocks (JCB or TCB) or the 
local area on disk. 

The user provides a parameter list which specifies the 
operation to be performed (get or put) and the data area 
to be used for communication between the user and the 
transient. 

When #SVINF receives control, XR2 contains the address 
of the parameter list. #SVINF determines whether the 
user is permitted to access the field. If the user is not 
permitted to access the field, a 3 option only SYSLOG 
message is issued. 



DATA MANAGEMENT TASK TRANSFER CONTROL 
(#SVTTC) 

Data management task transfer control (#SVTTC) controls 
communication between user programs and the communi- 
cations data management task. 
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SNAP DUMP (#SVDMP) 

The snap dump transient (#SVDMP) provides a formatted 
main storage dump when it is invoked by the $SNAP 
macro in the user program. The user either dumps the 
entire region of main storage, or specifies storage limits 
for the dump in a parameter list: 

Byte Description 

Flag 

1-2 Low storage address 

3-4 High storage address 

5-8 Dump identifier 
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Method of Operation 

This section contains functional diagrams of the system 
service functions. They are: 

• Find a library routine 

• Single name find routine 

• Librarian find routine 

• Source library get routine 

• Library record put routine 

© Library sector get/put routine 

• Library member protection 

© Active format 1 area access routine 

• Cross reference resolver 

© Duplicate key display routine 

• Print image verify routine 



• Disk VTOC read/write 

• Diskette VTOC read/write 

• Message retrieve 

• SYSIN 

• SYSLIST 

• SYS LOG 

• History file put 

• Supervisor task attach 

• Supervisor task detach 

• Syntax checker 

© Information retrieval 

© Data management task transfer control 

© Snap dump 
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ZT^° Find requested library (Diagram 6.1) 

x 

^^© Find directory entry (Diagram 6.2) ~ 

1^/° Find requested library directory entry 

rt (Diagram 6.3) 

l^> 9 Retrieve requested source or procedure 
record (Diagram 6.4) 



Z^° Put record to library (Diagram 6.5) 

~_^> O Get or put library sector (Diagram 6.6) 



y^ © Perform library member protection 
j function (Diagram 6.7) 



^^O Perform active format 1 area access function 
* (Diagram 6.8) 



1*^© Perform cross reference resolver function 

fl (Diagram 6.9) 

~^0 Display duplicate key information ^ZZZ. 

jl (Diagram 6.10) 

Z^>© Verify print image (Diagram 6.1 1) ZHZ 

1 

Zj^O Process disk VTOC read/write request _ 

1 (Diagram 6.12) 

^^© Process diskette VTOC read/write request 

M (Diagram 6.13) 



- v ^° Retrieve requested message (Diagram 6.14) 

Jl 

-^>° Perform SYSIN function (Diagram 6.15) 



D 



^>® Perform SYSLIST function (Diagram 6.16) ^^ 

j 
!^>0 Perform SYSLOG function (Diagram 6.17) ; 



1 

- > ^ > © Put records into history file (Diagram 6.18) 



t^° Perform supervisor task attach function 
M (Diagram 6.19) 



>0 Perform supervisor task detach function 
(Diagram 6.20) 



• © Perform syntax checker function 
(Diagram 6.21) 



^>© Perform information retrieval function 



Diagram 6.0 (Part 1 of 2). Overview of System Service Programs 
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|^> Printed or 
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"""^ file 
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m INPUT (continued) 



1 [ 



PROCESS (continued) 



TCB 



_^* Perform data management task transfer 
control function (Diagram 2.23) 



f 



OUTPUT (continued) 



User parameter 
list 



i. 



^^ Control is 
transferred 



I I. 

Perform snap dump function (Diagram 2.24) ^> Formatted main 

storage dump 




To: Calling Program 

Method of Operation 



Diagram 6.0 (Part 2 of 2). Overview of System Service Programs 
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INPUT 



From: Calling Program 

PROCESS 



C 



XR2 

Find a Library 
Parameter 

Main Storage 



Transient Area: 
#MAFLB 



User Area 



User Program 




P 



Library name 

SCA 

JCB 

FSB 

AFA 

VTOC 



Locate requested library and set up for 
use 



^> 



OUTPUT 



Format 1 address 

JCB 

FSB 

AFA format 1 




To: Calling Program 



DESCRIPTION 



MODULE/ 
ROUTINE 



Check if requested library name is # LIBRARY. 

If yes: 

• Get # LIBRARY format 1 address from system communications area (SCA). 

• Return to calling program. 

Search active format 1 area (AFA) for requested library. 

If requested library in AFA: 

• If library format 1 on job control block (JCB) library file specification block -<FSB) chain, only return format 1 
address. 

• If library format 1 not on library FSB chain, build library FSB, chain FSB to JCB, increment use count in 
format 1 , and return format 1 address. 

• Return to calling program. 

Search VTOC for requested library (disk VTOC read/write, @CSVF, is link edited with #MAFLB). 

If requested library in VTOC: 

• Build library format 1 in AFA. 

• Build library FSB and chain to JCB. 

• Set format 1 use count to 1 . 

• Return format 1 address to calling program. 

If requested library can not be found: 

• Set format 1 AFA address in parameter list to zero (calling program must handle error). 

• Return to calling program. . 



#MAFLB 



@CSVF 



#MAFLB 



Diagram 6.1. Find Requested Library 
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From: Calling Program 
INPUT taHHHin H m PROCESS 




c 



XR2 

System Find 
Parameter 

Main Storage 



Transient Area: 
#MASFN 



User Area 



User Program 



d 



JCB 
SCA 

#LIBRARY 
format 1 
User library 
format 1 



Locate requested library directory entry 



> 




OUTPUT 



Parameter list 



To: Calling Program or SYSLOG 



DESCRIPTION 



MODULE/ 
ROUTINE 



Move parameter to transient area. 

Determine if user library to be searched. 

If user library, search user library directory for requested entry (scan read). 

Se arch system library directory if KM not to be skipped, |*J entry not in user library, Q| user library skipped, 
or Q user library not designated or given (scan read). 

If user call: 

• If requested entry found: 

— Move requested directory data from scan buffer to output parameter. 

— If requested move format 1 address of library member is found in parameter list start address 
field ($FNDDF1F): 

a. Move output parameter to caller's area. 

b. Return to calling program. 

• If requested entry not found: 

— Leave unchanged parameter list in caller's area. 

— Return to calling program. 

If loader call: 

• If requested entry found: 

— Move loader information from directory entry to parameter list. 

— Move parameter to caller's area. 

— Return to calling program. 

• If requested entry not found: 

— Display name of member not found. 

— Issue halt. 



#MASFN 



Disk IOS 



#MASFN 



#CLXS 



#CLSG 



Diagram 6.2. Find Directory Entry 
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INPUT 



From: Calling Program 

PROCESS 



C 




Librarian Find 
Parameter 

Main Storage 



Transient Area: 
$MAFND 1 



User Area 



User Program: 
SMALFN 1 



Locate requested library directory entry 



^> 



Library 

JCB 

TCB 




OUTPUT 



Caller's buffer 
Parameter list 
Library directory 



To: Calling Program 



DESCRIPTION 



MODULE/ 
ROUTINE 



[ Determine if $MAFND executing in user area or transient area and set up code accordingly. 

Determine library to search: 

• Specified library. 

• Designated user library. 
© System library. 

• Designated user library, then system library. 

Enqueue library directory to be searched on the first call scan library directory to first requested member. 

Read library directory into caller's buffer. 

Search library directory for match on type and name (full or partial name). 

If requested entry found, update parameter list to point to found entry in caller's buffer. 

When at buffer end: 

• Write callerjsbuffer back to directory on disk if write switch on in parameter list. 

• Gotofl©- 

If directory entry not found: 

• Update parameter list to indicate requested library directory not found. 

• Set end of fj[e (EOF) switch. 

• Goto! 



1 $MAFND may execute in transient area or user area ($MALFN). 



$MAFND 

or 
MALFN 



Disk IOS 



$MAFND 

or 
$MALFN 



Disk IOS 



$MAFND 

or 
$MALFN 



Diagram 6.3 (Part 1 of 2). Find Requested Library Directory Entry 



Method of Operation 6-19 



Licensed Material— Property of IBM 



DESCRIPTION 



MODULE/ 
ROUTINE 



Terminate program: 

• Perform cleanup. 

• Dequeue library directory on last call (EOF on single name call without write) 

• Move parameter back to user area. 

• Return to calling program. 



$MAFND 

or 
$MALFN 



Diagram 6.3 (Part 2 of 2). Find Requested Library Directory Entry 
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INPUT 



From: Calling Program 

n PROCESS BB 




Get requested source or procedure record 



Library directory 
Library member 



Ml """'" lt 




Rl OUTPUT BEZ3Q32SSZ3E 



Parameter list 

Requested record 
in caller's record 
buffer 



ax 



To: Calling Program 



Diagram 6.4. Retrieve Requested Source or Procedure Record 



DESCRIPTION 


MODULE/ 
ROUTINE 


2| If get first request, perform first time processing. 


#MASGT 


If find request (#MASGT only): 

• Find requested library member. 

• If not found, return not found indicator. 

• Set parameter list for get first. 

If get first request or reprime request, read requested record into I/O buffer. 

If next record to be retrieved: 

• Blank record buffer. 

• Read another buffer if at end present buffer. 

• Expand record and move record from I/O buffer to caller's record buffer. 


or 
#MASYL 


#MASFN 


#MASGT 

or 
#MASYL 


Disk IOS 


#MASGT 

or 
#MASYL 


If record larger than caller's record buffer: 

• Truncate record. 

• Set truncated record bit in parameter list. 




If record smaller than caller's record buffer, pad remaining space with blanks: 




If requested, indicate start of blanks with X'FF'. 




When last record returned, set on EOF bit. 




When finished processing present record: 

• Update parameter list. 

• Return to calling program. 
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C 2 

Library Control 
Block 

Main Storage 








User Area: 
#MAPUR 




Record 
Caller's buffer 



From: Calling Program 

pi PROCESS 




^> 



Put source or procedure member into 
requested library 



^> 




OUTPUT 



LCB 



Library source or 
procedure member 



To: Calling Program or SYSLOG 



DESCRIPTION 



MODULE/ 
ROUTINE 



Check library control block (LCB) for library open request. 
If open request, open requested library and return to caller. 

Compress record and move record from user's buffer to I/O buffer. 

When I/O buffer full, write buffer to requested library. 

Update LCB to indicate number library member sectors available. 

If not enough library member sectors available, issue appropriate message. 

If close request, close library to update library directory and return to caller. 



$MAPUR 



$MACOM 

or 
$MALCO 



$MAPUR 



Disk IOS 



$MAPUR 



#CLXS 



$MACOM 

or 
$MALCO 



Diagram 6.5. Put Record to Library 
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■ INPUT 



From: Calling Program 

PROCESS 




C 

Library Control 
Block 

Main Storage 



Get member from library 
Put member into library 



User Area: 
$MAPGS 



Library directory 
Library member 
Caller's buffer 



\!uiiii! ,a: ;v 



&,.W"',',L!l»Jl»l»W'ti' ■»■ 



I> 



rj,F.M M "»,.i'!.mn. ,i'.,.i..i.'i'.w»nm'www."iij",'jn^.v m,i. 




a OUTPUT i r i iTfj.T.Twm nncr 



LCB 



Library member 



To: Calling Program 



■<rwj*-j.."umrw 



DESCRIPTION 



MODULE/ 
ROUTINE 



Check get/put bit (LCBGTPT) to determine operation requested. 

If put request, go to p©j . 

If requested, find requested library member. 

If program temporary fix (PTF) added to module, retrieve PTF information. 

Read requested library member and place in user provided I/O buffer. 

Return. 

When entire member is retrieved: 

© Update library control block (LCB). 

© Return to calling program. 

If open bit (LCBOPEN) on, open requested library and return to caller. 

Write library member from user provided I/O buffer to specified library. 

When entire member written to library: 
© Close library if requested. 

© Update LCB. 

© Return to calling program. 



$MAPGS 



#MASFN 



$MAPTF 



Disk IOS 



$MAPTF 



$MAPGS 



#MACOM 

or 
$MALCO 



Disk IOS 



SMACOJvl 

or 
$MALCO 



$MAPGS 



Diagram 6.6. Perform Library Sector Get/Put Function 
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From: Calling Program 



INPUT "'■"■^■■■■-^"-■"■"'■'ji 



XR2 

Parameter list 
Main Storage 



Transient Area : 
#MAMPM 



User Area 



User Program 




TCB address 
Terminal ID 
SEU member chain 

&iii^iw^^m^w.tiiM'wi«^.Mj,Ma:Wwii.. JM > f 



PROCESS 



i4 



Build new member chain element and 
add to chain 



£> 




OUTPUT 



Parameter list 

SEU member chain 

Member chain 
element 

SCA 



To: Calling Program or SYSLOG 



DESCRIPTION 



MODULE/ 
ROUTINE 



U Enqueue source entry utility (SEU) member chain queue header. 

Add new member element to chain. 

Using parameter list information, search specified library for requested member. 

Build member chain element from: 

© Task control block (TCB) address. 

© Terminal ID in terminal unit block (TUB). 

© If #MASFN found specified member, library directory member address (SSS). 

© If #MASFN did not find specified member, member address of zeros. 

Add terminal ID to end of parameter list. 

Search member chain for matches on terminal ID and member address. 

If matches (except for member address of zeros), cancel job and display appropriate error messages. 

If no matches, dequeue SEU member chain queue header and return to calling program. 



#MAMPM 



#MASFN 



#MAMPM 



#CLXS 



#MAMPM 



Diagram 6.7. Perform Library Member Protection Function 
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■ INPUT 



From: Calling Program 

PROCESS 



C 

AFA access 
parameter list 

Main Storage 



Transient Area: 
#CSAF 



User Area 



User Program 



JCB 

AFA format 1 

User's I/O area 

AQE chain 

FSB 




r 



> 



Process requests for Get and Put of format 1 
blocks in AFA 



L 



■ OUTPUT 



t> 



AFA format 1 

User's I/O area 

AFA access 
parameter list 




To: Calling Program 



DESCRIPTION 



MODULE/ 
ROUTINE 



Determine function requested by. caller. 

If get-by-label request for unit F1 : 

• Search AFA chain for format 1 with specified label (date and ID may also be given). 

• Move format 1 to caller's I/O area. 

If get-by-label request for unit 11 : 

• Scan FSB chain and examine the associated format 1's. 

• If format 1 contains correct unit and label, place format 1 address into caller's parameter list (date verify may 
also be given). 

• Move format 1 to caller's I/O area. 

If get-by-name request: 

• Search FSB chain for specified name (FSB contains address of format 1). 

• If format 1 contains correct unit, place format 1 address into caller's parameter list. 

• If requested, move format 1 to caller's I/O area. 

If get-by -address request, move format 1 at specified address to caller's I/O area. 

If put request, move format 1 in caller's I/O area into AFA format 1 specified in caller's parameter list. 

Update return code in parameter list. 

Return to calling program. 



#CSAF 



Diagram 6.8. Perform Active Format 1 Area Access Function 
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From: Calling Program 



Main Storage 








User Area: 
#MAXRF 




Library directory 
Library member 
SCA 






PROCESS ■ 



t> 



Place module loader information in 
where-to-go table, or fill in format 
index table 



r 



OUTPUT 



^> Library member 



JTJ 



To: Calling Program or EOJ or 
SYSLOG (if error) 



DESCRIPTION 



MODULE/ 
ROUTINE 



Get address of # LIBRARY from system communication area (SCA). 

Read system library directory. 

Build resident table of all SSP load modules (O-type). 

Build main storage format index. 

For each entry in the resident table with the where-to-go (WTG) or format index table indicator on, read the 
last four text sectors of corresponding library member. 

If module has a WTG table, search resident table for match with WTG table entries. 

If match found, move loader data from resident table into WTG table: 

• SSS disk address. 

• Number of text sectors. 

• RLD displacement. 

If no match, move loader data for no-op module (#MANOP) into WTG table (see note). 

If module has a format index table: 

• Use displacement to get corresponding entry from the main storage format index. 

• Move fields from main storage format index to the module's format index table: 

- SSS disk address. 

- Number of FDT. 

— Number of text sectors. 

— Input length of screen. 

Note: #MANOP is executed when unresolved module is called. #MANOP issues halt by way of SYSLOG. 



#MAXRF 



Disk IOS 



#MAXRF 



Disk IOS 



#MAXRF 



Diagram 6.9 (Part 1 of 2). Perform Cross Reference Resolver Function 
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DESCRIPTION 



MODULE/ 
ROUTINE 



If WTG table or format index table is invalid (no delimiter of X'FFFF': 

O Display module name. 

O Prepare to read next module. 

• If during I PL, issue system error. 

When all WTG table references and format index table entries are processed, write last four sectors of module 
back to original location on disk unless no changes were made. 

When all modules processed, return to calling program or EOJ as requested. 



#MAXRF 



#CLXS 



#MAXRF 



Disk IOS 



#MAXRF 



Diagram 6.9 (Part 2 of 2). Perform Cross Reference Resolver Function 
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INPUT 



From: Calling Program 

n PROCESS 



^-XR1 



Parameter list 
Main Storage 



Transient Area: 
#CSDK 



User Area 



User Program 




> 



TCB 
RB 

Format 1 
Message build 
buffer 



Display duplicate key message and pass 
operator response to calling program 



£> 



OUTPUT 



Parameter list 
(selected option) 

Message 




To: Calling Program 



DESCRIPTION 


MODULE/ 
ROUTINE 


U Save duplicate key display parameter list address and program mode register setting. 
Display duplicate key found message and specify file name. 


#CSDK 


#CLXS 


Place operator selected option in SYSLOG parameter list. 
Retrieve operator selected option from SYSLOG parameter list: 




#CSDK 


• option = display key in EBCDIC. 




• 1 option = display key in hexadecimal notation. 




Move key to message buffer area (if hexadecimal notation, request, convert first). 
Output duplicate key message to system console. 




#CLXS 


Place operator selected option in SYSLOG parameter list. 

Retrieve operator selected option from SYSLOG parameter list and place in duplicate key message parameter 
list (flag byte). 




#CSDK 


Return to calling program. 





Diagram 6.10. Perform Duplicate Key Display Function 
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INPUT 



From: Calling Program 

S3 PROCESS 



Main Storage 



Transient Area: 
#CSIM 



User Area 



User Program 



JCB 
TUB 
PSB 




ra OUTPUT iMW-' *■■*!« 



c> 



Set print image 

Set forms number 

Indicate separator page information for 
spool 

Set lines per page 



> 




Print image 

Forms number 

Spool separator 
page indicator 

Lines per page 

PSB 

TUB 



. J," •MtV'lLu. 



To: Calling Program 



Diagram 6.11. Perform Printer Image Verify Function 



DESCRIPTION 


MODULE/ 
ROUTINE 


££;] Read work station configuration record. 
Read current printer image. 
Compare current print image to work station configuration record. 

If images do not match: 

• Output change printer image message to operator. 

• Place operator selected option in SYSLOG parameter list. 

If option 1 (image change request), change image in printer control unit. 

• Make current printer image equal to work station config record. 

IJjH Compare forms number in printer specification block (PSB) and terminal unit block (TUB). 

If forms numbers do not match: 

• Output change forms message to operator. 

© Place operator selected option in SYSLOG parameter list. 

If option 1 (forms number change), set forms number in TUB. 
g2 Check spool indication in TCB. 

If spool: 

• Output spool separator page message to operator. 

• Place operator selected option in SYSLOG parameter list. 

If option 1 (separator pages requested), update PSB flag byte. 
£J Check lines per page flag in PSB. 

If lines per page flag on, send lines per page to printer control unit. 
After all PSBs on chain are processed, return to calling program. 


Disk IOS 


#CSIM 


#CLXS 


#CSIM 
WSIOCH 


#CSIM 


#CLXS 


#CSIM 


#CLXS 


#CSIM 


WSIOCH 


#CSIM 
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INPUT 



^XR2 

^"Parameter list 
Main Storage 



From: Calling Program 

PROCESS 



Transient Area 
#CSVF 



%am>mijm.n-!Mjmj!:fr 




Determine function requested 
Process Format 1 read request 
Process Format 1 write request 
Process existence test request 



> 



OUTPUT 



Parameter list 
User I/O area 
Disk VTOC 




User Area: 
@CSVF 1 



Disk VTOC 

User I/O area 

SCA 

TCB 

RB 



f^iWJ«LMMi«W,l«^JMaWWW^m» 





To: Calling Program 



DESCRIPTION 



MODULE/ 
ROUTINE 



Examine function byte in parameter list: 
© If format 1 read request, go to KEl . 
© If format 1 write request, go to ||jjj. 
© If existence test request, go to gj]| . 

Determine type of format 1 read request: 
© Read next: 

— Examine parameter list to determine if this is first request. 

— If first request, start scan at first VTOC format 1 area sector. 

— If not first request, increment sector number in parameter list and start scan in next sector. 

— Read sector identified by disk IOS. 
© Read next -same label: 

— Set up scan mask to compare on specified label. 

— Perform same steps as for read next. 
© Read specific: 

— Set date indicator scan if requested. 

— Scan VTOC format 1's. 

If requested VTOC format 1 found or read by sector displacement: 

© Place sector/displacement of format 1 in parameter list. 

• Read format 1 into data area. 

© Move format 1 to caller's I/O area. 

1 Link-edit version is @CSVF. 



#CSVF1 
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Diagram 6.12 (Part 1 of 2). Process Disk VTOC Read/Write Request 
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DESCRIPTION 



MODULE/ 
ROUTINE 



If request not found, set request not met return code in parameter list. 

Return to calling program. 
gj Set up IOB to read sector specified in parameter list. 
► Read specified sector from disk. 

Move format 1 from caller's I/O area into sector just read. 

Write sector with updated format 1 back to disk. 

Return to calling program. 
£S Perform read specific processing but do not move format 1 into caller's I/O area. 

Return to calling program. 



#CSVF 
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Diagram 6.12 (Part 2 of 2). Process Disk VTOC Read/Write Request 
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a INPUT km 



Maciksi 



From: Calling Program 

m PROCESS 



C 



XR2 

Parameter list 
Main Storage 




Transient Area: 
#CSVI 
#CSVJ 
#CSVK 



User Area 



User Program 



y| Determine function requested 
Qg Process convert request 
Qj Process prepare request 
Q Process format 1 read request 
PH Process format 1 write request 
[5H Process existence test request 



■ OUTPUT 



:> 



Diskette VTOC 
Parameter list 
User I/O area 
Disk VTOC 



SCA 

TCB 

JCB 

Diskette VTOC 

area on disk 

User I/O area 

Diskette VTOC 



i pujmmmr WKtr 




To: Calling Program 



DESCRIPTION 



MODULE/ 
ROUTINE 



Examine function byte in parameter list: 

O If convert request, go to f-j-jj . 

© If prepare request, go to JeH . 

© If format 1 read request, go to ffcla - 

© If format 1 write request, go to |Qj| . 

© If existence test request, go to lua . 

If request for header 1 's convert: 

© Initialize diskette IOB for read operation and disk IOB for write operation. 

© Read header 1 's from diskette. 

© Convert header 1 's to format 1 's. 

© Write format 1 to disk. 

© Return. 

If request for format 1 convert: 

© Verify lock sector. 

© Initialize disk IOB for read operation, and diskette IOB for write operation. 

© Read format 1 from diskette format 1 area on disk. 

© Convert format 1 to header 1 . 

© Write header 1 to diskette. 

© Return. 



#CSVI 



#CSVJ 



Diskette IOS 



#CSVJ 



Disk IOS 
#CSVJ 



#CSVI 
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#CSVK 



Disk IOS 
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DESCRIPTION 



MODULE/ 
ROUTINE 



Initialize diskette IOB for read operation. 

Read diskette volume label. 

Perform recalibrate if necessary. 

Verify volume label format. 

Put volume label and physical attribute byte in SCA. 

Create diskette lock sector. 

Build diskette VTOC area on disk. 

Determine type of format 1 read request: 

• Read next: 

— Examine parameter list to determine if this is first request. 

— If first request, start scan at first VTOC format 1 area sector. 

— If not first request, increment sector number in parameter list and start scan in next sector. 

• Read next-same label: 

— Set up scan mask to compare on specified label. 

— Perform same steps as for read next. 

• Read specific: 

— Set date indicator scan if requested. 

— Scan VTOC format 1 's. 

If requested VTOC format 1 found or read by sector displacement: 

• Place sector/displacement of format 1 in parameter list. 

• Read format 1 into data area. 

• Move format 1 to caller's I/O area. 

If request not found, set request not met return code in parameter list. 
Return to calling program. 

| Set up IOB to read sector specified in parameter list. 
Read specified sector from disk. 

Move format 1 from caller's I/O area into sector just read. 
Write sector with updated format 1 back to disk. 
Return to calling program. 

Perform read-specific processing but do not move format 1 into caller's I/O area. 
Return to calling program. 
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INPUT 



From: Calling Program 

m PROCESS 



C 2 



Parameter list 
Main Storage 



Transient Area: 
#MGRET 



User Area 



User Program 



Message member 

Caller's buffer 

address 

MIC 

Message member SSN 

Communication 

regions 




> 



Retrieve message text for requested MIC 



OUTPUT 




Caller's buffer 
containing 
requested message 
text 

Parameter list 



To: Calling Program 



DESCRIPTION 



MODULE/ 
ROUTINE 



Ensure valid message member: 

• Check message retrieve parameter list for valid indicators. 

• Check message member pointers in appropriate communication region for nonzero SSN. 

Scan message member for sector identified by message identification code (MIC) greater than or equal to one 
requested. 

Find desired message by reading message member sector, looking for requested MIC. 

Blank caller's buffer. 

Place requested message in buffer. 

Place message length in parameter list. 

If error condition detected, return error MIC in parameter list. 

Return control to calling program. 



#MGRET 



Disk I OS 



#MGRET 



Diagram 6.14. Perform Message Retrieve Function 
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INPUT 



From: Initiator or Calling Program 

m PROCESS 



^-XR2 



SYSIN 
parameter list 

Main Storage 



DDOO 



F800 



FFFF 



Procedure 
Parameter 
Save Area 
buffer (PPSA) 

and 
SYSIN mainline 

(#CLSS) 



SYSIN routines: 
#CLAC 
#CLBL 
#CLFX 
#CLPR 
#CLSB 
#CLSM 



Task work area 
JCB 




> 



Load SYSIN if not already in main storage 

If input fr om keyboard, retrieve record 
and go to^J. 

Perform SYSIN mainline processing 

Perform substitution to first blank past 
character 

Determine necessity for IF statement 
processing; if required: 

|«2jJ Perform active procedure 
existence tesying 



Perform blocks existence testing 
Jjjj| Perform file existence testing 

Perform switch and member existence 
testing 

| Set return code and return to 
calling program 



r 



OUTPUT 



t> 



PPSA 

Processed record 
History file 




To: Calling Program 



DESCRIPTION 



MODULE/ 
ROUTINE 



Push out one track of user main storage to make room for #CLSS and 2K area for SYSIN routines. 

Load SYSIN mainline (#CLSS) into main storage area just cleared (X'DDOO'). 

Pass control to #CLSS. 

Call command processor (#CMWI) to accept input from keyboard. 

If log to printer, call SYSLOG (#CLSG) to print keyboard input. 

Move input record to user's buffer. 

Output records to history file if log bit on in SYSIN parameter list operation code. 

Pull user program back into main storage if previously pushed out to disk. 

Go toQ. 



#CLSN 



#CLSS 



@HFPUT 



#CLSN 



Diagram 6.15 (Part 1 of 4). Perform SYSIN Function 
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DESCRIPTION 



MODULE/ 
ROUTINE 



Call source get (#MASYG) to retrieve record from procedure library and place in input buffer. 

Move characters one at a time from input buffer to output buffer looking for question mark (?). 

If ? found, perform character substitution by checking proper syntax. 

If syntax error, call SYSLOG (#CLXS). 

Determine type substitution required: 

Type 1 ?#? 

Type 2 ?#R? 

Type 3 ?#R'msgid7 

Type 4 ?#'default? 

Type 5 ?#T'default'? 

Type 8 ?R? 

Type 6 ?WS? 

Type 7 ?L'dsp,lng? 

Type 9 PMxxxx? 

Type 10 ?M'xxxx,dsp,lng7 

If substitution required, go to^J . 

Look for // blank in each procedure statement. 

RjX If // blank found, determine keywork: 

• IF. 

• ELSE. 

• CANCEL. 

• RETURN. 

• RESET. 

• Non keyword. 

IF statement — If the IF expression conditions are met, blank out IF keyword and expression and continue 
processing. If expression not met, set switch TSSSW4 and read another record into input buffer. 

Search character string for /or — character: 

• If /, perform character string comparison . 

• If —, perform existence testing: 
— For active procedure existence test, go to 



#CLSS 



#CLSS 



— For blocks existence test, go to |*2£| • 

— For file existence test, go to | 

— For switch and member existence test, go to (£] . 

ELSE keyword — If previous IF statement invalid (check TSSSW4), blank out ELSE keyword and process record. 
Otherwise, read next record and ignore entire record with ELSE. 

CANCEL keyword — If IF statement just processed (check TSSSW5) set TSSSW6 which causes EOJ transient 
($EJ1 -control storage) to be called. 

RETURN keyword — If IF statement just processed, (check TSSSW5) set TSSSw7 which causes same function 
as end-of-file processing. 

RESET keyword - Set TSSSW14. 

If TSSSW5 on, IF statement just processed. Since another IF expression may follow, return tojjj^^to 
continue processing. 

When all IF expressions processed, go to (3 to substitute remainder of record. 
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DESCRIPTION 



MODULE/ 
ROUTINE 



When record with substitution, IF, and ELSE processing complete and in user's output buffer. 

• Write record to history file if log bit on in SYSIN parameter list (use @HFPUT which is link edited with 
#CLSS). 

• Pull user program back into main storage. 

• Return control to calling program. 

Q Perform actual substitution: 

• Type 1 — parameter passed to procedure indicated by number is substituted. If no parameter passed, pass 
null to output buffer. 

• Type 2 — R indicates parameter required. Thus if no parameter passed, operator prompt is ENTER 
MISSING PARAMETER. Response is saved in procedure save area as parameter (up to 8 characters). 

• Type 3 — R indicates parameter required. User message is displayed to operator. Response saved in 
procedure save area as parameter. 

• Type 4 — Default value enclosed in quotation marks used as parameter. 

• Type 5 — Default value used but T indicates parameter is temporary. Procedure parameter save area not 
updated with default value. 

• Type 8 - Prompt for up to 8 characters but result not saved in PPSA. 

• Type 6 — Substitute work station I D. 

• Type 7 — Substitute requested displacement and length from local area. 

• Type 9 — Substitute characters from user 1 .message member indicated by MIC number XXXX. 

• Type 10 — Substitute from MIC with specified displacement and length. 

If non blank character found, set internal switch. 

If blank found, nonblank switch on, and substitution only to first blank past character, return to caller. 
Otherwise, move character to output buffer. Repeat until all characters substituted. 

When record substituted, output to history file. 
JQ When IF statement processing necessary, perform steps |«2jJ , |*]£] . and |?JJj as required. 

When IF statement processing not necessary, perform substitution to end of statement. 

When IF statement evaluated, return to (J. 
|«2jJ Check for quote mark following dash. 

If quote found, there is list of procedure names to check. If no quote, only one procedure name. 

Move procedure name characters to scan mask (8 characters maximum). 

If active procedure found, set SS5TRVE switch. 

If error detected, call SYSLOG (#CLXS) to display error message. 

Return to #CLSS on ARR. 
^0 Check for 1 to 5 valid digits after BLOCKS-. 

If digits valid, convert EBCDIC digits to hexadecimal notation. 

Set up disk IOB to read F5 area (first 5 sectors of VTOC). 

Read format 5 area from disk. 

Check for available blocks. 

• Save first format 5s size and address. 

• Search format 5s for first format 5 that fits blocks requested. 

• If space found, set SS5TRVE switch. 



#CLSS 



#CLSN 



#CLSS 



#CLPR 



#CLSB 



#CLSS 



@HFPUT 



#CLSS 



#CLAC 



#CLBL 



Disk IOS 



#CLBL 
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DESCRIPTION 



MODULE/ 
ROUTINE 



If error detected, call SYSLOG (#CLXS) to output error message. 

Return to #CLSS on ARR. 

Check for quote mark following -. 

If quote found, indicates file existence test with file name and date. 

Perform syntax checking. 

Determine if disk or diskette to be checked. 

If diskette: 

• Allocate diskette device. 

• Call diskette VTOC read/write (#CSVI) to perform existence test. 

• If specified file found, set SS5TRVE switch. 

• Deallocate diskette device. 

If disk: 

• Call disk VTOC read/write (#CSVF) to read VTOC. 

• If specified file found, set SS5TRVE switch. 

If error detected, call SYSLOG (#CLXS) to display error message. 
Return to #CLSS on ARR. 
3 Check for quote mark following -. 

If quote found, indicates library name follows library member name. 

Perform syntax checking. 

Find specified library. 

If library found, find specified library member. 

If library and member found, set SS5TRVE switch. 

If SWITCH keyword, perform switch existence test: 

• Compare UPSI switch with SWITCH keyword. 

• If compare ok, set SS5TRVE switch.. 

If error detected, call SYSLOG (#CLXS) to display error message. 
Return to #CLSS on ARR. 
Q If successful operation set return code of X'40' in parameter list. 

If /* in first two positions of keyboard record, set return code of X'50' in parameter list. 
Return control to calling program. 



#CLBL 



#CLFX 



#CLSM 



#MAFLB 



#MASFN 



#CLSM 



#CLSS 
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INPUT 



From: Calling Program 

PROCESS 



C 




XR2 

SYSLIST 
parameter list 
(170-byte buffer) 

Main Storage 



Transient Area: 
#CLST 
#CLSC 



User Area 



User Program 



Print or display specified message 



t> 



JCB 

User message buffer 

Message member 



i-j.mi.iiiwj.nimtiwjaf u .mMm^wwaw 



OUTPUT 

Printed output 
Screen display 



Wmi'miu-wi'.',iwi.ui;'w.w.'mm-.h I |» .v.w.^im. •:.&•■ 



«!«■ i-'.h) 




(gg 



To: Calling Program 



Diagram 6.16. Perform SYSLIST Function 



DESCRIPTION 


MODULE/ 
ROUTINE 


IH Check SYSLIST indicator (JCBDSLST) and if null (X'0000'), return to calling program. 


#CLST 


If parameter list is type 1 (output from message member): 




© Check parameter list for message member to use. 

O Retrieve message from message member and place in SYSLIST message buffer (170 byte buffer supplied 




#MGRET 


by the user). 
If parameter list is type 2 (output from program), the user's message is already in the SYSLIST message buffer. 




#CLST 


Check SYSLIST indicator (JCBDSLST) to determine SYSLIST device. 




If SYSLIST device is printer (not X'0000' or X'EEEE'): 
!► • Allocate printer. 

© Build print buffer from user supplied buffer. 
© Skip to new page if requested in parameter list. 




#CAPT 


#CLST 


WSIOCH 


© Print message from print buffer. 




© Space according to value in parameter list (0 to 3). 




• Skip to new page if within six lines of page size value in JCB (JCBDLNPG). 
© Return. 




#CLST 


If SYSLIST device is display screen (X'EEEE'): 




• Build command processor parameter list around message in SYSLIST buffer. 
© Display message on screen. 

Return control to calling program. 




#CMLS 


#CLST 
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INPUT 



From: Calling Program 

m PROCESS 



c XR2 



SYSLOG 
Parameter List 

Main Storage 



Transient Area: 
#CLXS 



Main Storage: 
#CLSG 



Command Processor 

(responses) 

JCB 

SCA 




t> 



Print or display requested message 



> 




■ OUTPUT 



Screen display 
Printed message 
History file 
TCB 



To: Calling Program or 
Job Terminated 



DESCRIPTION 



MODULE/ 
ROUTINE 



If SYSLOG push/pull transient called by user: 

• Move SYSLOG parameter list from calling program to parameter list buffer in transient area. 

• If type 2, 2R, or 3 message required, move message from calling program to message buffer in transient area. 

• Push 10K of main storage (user area) to disk. 

• Move parameter list buffer and message buffer (if used) to main storage area just cleared (X'C800' — X'C8FF'). 

• Load SYSLOG mainline (#CLSG) into main storage area (at X'C900'). 

Build format line (if requested) and log to history file (history file put - @HFPUT link edited with #CLSG). 

If type 1, 1R, or 4 message, move message from message member (message retrieve — @MGRET link edited 
with #CLSG) to main storage save area. 

If type 2, 2R, or 3 message : 

• Message is in main storage save area. 

• Log message to history file (@HFPUT). 

Display message (format line and text line) on system operator display screen or work station display screen as 
requested. 

If system in single program mode and printer is SYSLOG device, also print message as well as display it. 

If data response required, log message and response to history file (@HFPUT). 



#CLXS 



#CLSG 



#CMWO 

and 
#CMCI 



WSIOCH 



#CLSG 
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DESCRIPTION 



MODULE/ 
ROUTINE 



If option response to message: 

• Display and print (if print conditions met) valid option taken by operator. 

• If 3 option taken, call end of job transient (#CTEI). 

• If D option taken, return to #CLXS. 

If SYSLOG push/pull transient called by #CLSG: 

• Move SYSLOG parameter list from main storage to parameter list buffer in transient area. 

• Pull main storage area back from disk. 

• If option response taken by operator, pass response to calling program. 

• If option response was D, dump main storage and call EOJ transient. 

• If data response required, pass response to calling program. 

• Return control to user program. 



#CLSG 



#CLXS 
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■INPUT 



From: Calling Program 

m PROCESS 



c 



XR2 

Parameter list 
Main Storage 



Transient Area: 
#HFPUT 



User Area: 
@HFPUT1 



JCB 
SCA 
TUB 
History file 




:> 



Put records into history file 



> 




OUTPUT 



History file 
Parameter list 



To: Calling Program 



DESCRIPTION 



MODULE/ 
ROUTINE 



m Lock the history file. 

Obtain history file controls from system communication area (SCA): 

• History file start sector address. 

• History file size. 

• Current entry sector address. 

Read current sector(s) from history file and place in history file I/O buffer. 
E9 Remove trailing blanks from input record. 
Place record in history file data buffer. 

Place additional information about record in history file data buffer: 

• User ID. 

• Job identifier. 

• Terminal ID. 

• Broadcast or display indicators. 

• Entry length. 

• Time of day. 

Move completed entry from history file data buffer to history file I/O buffer placing new entry immediately 
after previous current entry. 

History file link edit version. 



#HFPUT 



Disk IOS 



#HFPUT 
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DESCRIPTION 



MODULE/ 
ROUTINE 



If new entry overflows into next sector, update current sector address in SCA. 

If more input for history file, return to Q^3and repeat process (maximum of 4 lines may be presented to 
history file at one call). 

Write current sector(s) from I/O buffer to history file on disk. 

Unlock and dequeue the history file. 

Place return code in history file parameter list. 



#HFPUT 



Disk I OS 



#HFPUT 
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INPUT 



From: Calling Program 

m PROCESS 



c 



XR1 

Supervisor Task 
Attach Parameter 
List 

Main Storage 



Transient Area: 
#SVAT 



User Area 



Attach parameter 
list 

Main storage 
space 

JCB,SCA,TCBs, 
and TUB 




:> 



Q Assign new task control block 

3 Determine main storage requirements 

gj Assign and initialize areas needed to start 
new task 

£] Place new task control block on swap-in- 
queue 

q| Process attach error conditions if necessary 

UM Terminate program 



t> 




OUTPUT 



New TCB placed 
on swap-in-queue 

Request block (RB) 

Action control 
element (ACE) 

Swap area 



To: Calling Program, New Task, or 
Next Transient 



DESCRIPTION 



MODULE/ 
ROUTINE 



Use control storage assign function to assign task control block (TCB) to run new task. 

If unable to get TCB space, go to^jjwith $ATERR04 return code. 

Initialize all TCB fields to zero. 

Calculate logical program begin number and place in TCB (TCBBEGL). 

Calculate logical start address. (This would be link edit address if module was link edited to 2K-byte boundary.) 

Calculate number of 2K-byte main storage blocks required to start task (TCBMSSIZ). (This is the largest 
program size to load program mainline or program size to execute.) 

Make all address translation register (ATR) values serial from logical zero to new tasks begin address. 

Ensure tasks main storage requirements do not exceed currently available main storage. 

Calculate maximum active swappable region in system (excluding attach or task). 

If insufficient swappable storage exists and task is swappable, go to|jJwith $ATERR01 return code. 

If task is nonswappable and storage requirements may disable another task, go tojjjwith $ATERR03 
return code. 



#SVAT 
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DESCRIPTION 



MODULE/ 
ROUTINE 



If no terminal unit block (TUB) associated with attach request, but job control block (JCB) address (JCB@) 
passed in attach parameter list (used by spool writer and batch job queue attach requests): 

• Allocate one-track work station wo rk area (WSWA) on disk. 

• If allocate not successful, go to M with SATERR07 return code. 

• Move al I ocated WSWA address i nto TC B . 

If TUB associated with attach request: 

• Indicate TUB owned by new task. 

• Use control storage assig n function to assign action control element (ACE) to new task. 

• If assign fails, go to^Jwith $ATERR08 return code. 

• Use control storage queue function to place completed ACE on tasks TCB complete queue. 

Use control storage assign function to assign request block (RB) in order to start new task. 

If assign fails, go toQ|with $ATERR05 return code. 

Allocate required disk swap area. 

If swap area not available, go tojjjwith $ATERR06 return code. 

Assign task ID if not passed in attach parameter list. 

If SYSIN data available, use control storage task work area (TWA) function to put SYSIN data in WSWA. 

If job name to be assigned, use control storage time-of-day function to place time in JCB. 

Move system loader parameter list from attach parameter list to task — start bootstrap code. 

Move bootstrap code to assigned RB. 

Use control storage queue function to place new TCB on swapin queue. 

Use control storage stack manipulation function to unstack RB from chain. 

Deallocate WSWA (if any). 

Use control storage free function to free ACE, RB, and TCB (if any). 

Put error code in XR1 (format is OOXX, where XX is error code). 

Return to calling program. 

Store passed XR2 address. 

Get current TCB address. 

Update RB. 

If attach failed, return to calling program with error return code. 

If attach worked, and if next transient address ($ATSSSN) given, pass control to next transient. 

If attach worked, exit transient area. 



#SVAT 



Disk IOS 



#SVAT 
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INPUT i 



From: Calling Program 

m PROCESS 



c 



XR1 

Supervisor task 
attach Parameter 
list 

Main Storage 



Transient Area: 
#SVAU 



User Area 




OUTPUT 



t> 



Attach parameter 
list 

RB 

JCB 

TCB 



Q| Perform preliminary processing and 
determine requested function 

3 Detach task from system if requested 

gj Change task's point of origin if requested 

Q Process error conditions if needed 

kh Terminate program 




To: Calling Program or 
Next Transient 



DESCRIPTION 



MODULE/ 
ROUTINE 



Calculate maximum swappable active region size not including this task and store value in TCB@INL1 . 

Deallocate all push elements for current TCB: 

• Use control storage free function to free push element. 

• Deallocate track on disk. 

Calculate old swap size in tracks and place value in TCB@INL2. 

If request to detach task from system, go tog*j. 

If request to change task's point of origin, go to 198 ■ 

Use control storage free function to free all assign free queued areas for task being detached. 

Use control storage free page function to free user main storage area. 

Deallocate task's swap area on disk. 

If no terminal unit block (TUB) associated with task and job control block (JCB) address not zero: 
Use control storage free function to free JCB. 

• If not request to detach batch job, deallocate work station work area (WSWA). 

Post command processor to restart batch job queue. 



#SVAU 
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DESCRIPTION 



MODULE/ 
ROUTINE 



Use control storage dequeue function to dequeue this task control block (TCB) from all system queues. 

Post command processor for stop system request. 

Use control storage free function to free all request blocks (RBs) associated with task and free this tasks TCBs. 

Go toQto terminate program. 

Calculate program size in number of blocks required to load program and place value in TCB@INL3. 

Calculate required disk swap area size and place track size in TCB@INL4. 

If not enough main storage space available to load task, go to JJ with $ATERR01 return code. 

If task not swappable: ^^ 

• If task initiation will disable active task, go to^J with $ATERR03 return code. 

• If task will not leave at least 14K bytes main storage available, go to(]with $ATERR02 return code. 

If larger disk swap area needed or task initiation and swap area larger than needed: 

• Deallocate old swap area on disk (Size in TCB@INL2). 

• Allocate new swap area on disk (size in TCB@INL4). ^^ 

• If allocate not successful, allocate old swap area back and go to (J with $ATERR06 error code. 

Use control storage free page function to free all main storage except first 2K bytes associated with task. 

Move bootstrap code to first 2K-byte area. 

Store callers address recall register (ARR). 

Put error code in XR1 (format is OOXX, whereXX is error code). 

Return to calling program. 

Store new instruction address register (IAR) value. 

Store new XR1 value (RB address in XR1). 

If request to change tasks point of origin, pass control to program specified in attach parameter list. 

If request to detach task, pass control to the dispatcher (control storage). 



#SVAU 
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From: Initiator 



INPUT 



c 



XR2 

Syntax checker 
parameter list 

Main Storage 



Transient Area 



User Area: 
#USYX 



Verb list 

Communication 
table 

Syntax 
specification module 

Control 
statement 




PROCESS 



t> 



Read control statements 

Analyze verbs 

Process parameters if parameters exist 

Perform end-of-statement check 

Return control to calling program 



^> 




OUTPUT 



To: Calling Program 



Diagram 6.21 (Part 1 of 2). Perform Syntax Checking Function (#USYX) 
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Updated 

communication 

table: 

• Parameters 
found in 
control 
statements 

• Parameter 
values 

• Syntax errors 
detected 



DESCRIPTION 


MODULE/ 
ROUTINE 


Q Retrieve heading inserts. 

Load calling program's syntax specification module: 

• Find module. 

• Use main storage relocating loader to load module into main storage. 


#MGRET 


#USYX 


#MASFN 


#USYX 


Put control statement into internal buffer: 




• If user providing input, copy it. 

• Read control statement if not user provided. 

J£M Ensure input starts with // 




#CLSN 


#USYX 


Skip over blanks. 




Collect characters until blank encountered (verb is characters collected). 




Ensure verb corresponds to name field of verb entry in specification module. 




If verb in list of verbs currently acceptable, copy verb number from verb entry in specification module and 




place in communication table at USCTVRBN. 




Initialize internal pointers. 
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DESCRIPTION 



MODULE/ 
ROUTINE 



Check if parameters specified. 

Set scan terminator as comma, hyphen, or blank. 

Collect characters preceding terminator to form parameter. 

If scan terminated by hyphen: 

• Indicate parameter is keyword. 

• Ensure keyword entry has corresponding field name in specification module. 

• Save keyword entry attributes. 

If scan terminated by comma or blank: 

• Indicate parameter is positional. 

• Ensure positional parameter entry exists in specification module. 

• Save positional parameter entry attributes. 

Ensure parameter not already encountered. 

Verify parameter values: 

• If parameter attribute is numeric: 

— Ensure value is numeric. 

— Retain character format. 

— Convert value to 3-byte signed binary field. 

• If parameter attribute is a date: 

— Ensure format is acceptable. 

— Ensure month, day, and year characters are numeric. 

— Convert date to packed YYMMDD format. 

• If parameter attribute is a label, ensure first character of value is alphabetic. 

• If parameter attribute is a quoted string: 

— Ensure all quotes are paired. 

— Ensure first and last characters of value are quotes. 

• Else parameter value is a string. 

If required, place verified parameter value in caller's output area. 

If required, a specific parameter value causes placement of a one, two, or 3-byte value in caller's output area. 

Continue processing until all parameters analyzed. 

Point to parameter entries one at a time. 

If optional parameter with default and value not in input, go to|JCjlto verify default value, then return here. 

If required parameter not in input, set appropriate error condition in communication table. 

Verify parameter combinations if VALCM records exist: 

• If parameter appeared in input, ensure parameter must not be missing. 

• If specified parameter must have specific value, ensure value is correct. 

• Set appropriate error condition in communication table as necessary. 

Update communication table. 

Set return code as required. 

Copy updated communication table into caller's area. 

Pass control back to calling program. 



#USYX 
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From: User Program 



INPUT 



c 



XR2 

User parameter list 

Main Storage 



Transient Area: 
#SVINF 



User Area 




PROCESS 



:> 



Process user parameter list 
Get JCB address 
Perform PUT or GET 



O 




OUTPUT 



Requested field 
moved 

3 option only 
SYS LOG message 



To: User Program 



DESCRIPTION 



MODULE/ 
ROUTINE 



Move parameter list to transient area. 

•Verify fields in parameter list: 

• If local request, check for valid entries in offset and length fields. 

• If invalid entry found, issue 3 option only message. 

If parameter list contains a terminal ID, get the JCB address from that work station's TUB. 
Otherwise, get JCB address from the TCB. 

If put request: 

• If update UPSI switch request, move value to JCBDUPSI. 

• If update language compiler byte request, move value to JCBDLANG. 

• If update program message member one address request, move value to JCBDPRG1 . 

• If update program message member two address request, move value to JCBDPRG2. 

• If update local area on disk request, move value to WSWA on disk. 

• If update user message member one address request, move value to JCBDUSR1 . 

If get request: 

• If return date format request, move value from JCBDSCH1 . 

• If return program date request, move value from JCBDPDAT. 

• If return session date request, move value from JCBDDATE. 

• If return UPSI switch value request, move value from JCBDUPSI. 

• If return inquiry byte value request, move value from JCBDSCH2. 



#SVINF 



#CLSG 
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■INPUT 



From: User Program 

m PROCESS 



c 



DTF 



CSB 



TCB 

Main Storage 



Transient Area 



Resident Area: 
#SVTTC 



User Area 




t> 



Process communications request 
Process return code 



^> 




OUTPUT 



CSB 

Control transferred 



To: User Program 



DESCRIPTION 



MODULE/ 
ROUTINE 



If the data communications task has been terminated, return to caller. 

Otherwise, post the data communications task for execution. 

Increment the calling task's nonswap count to ensure that it is not swapped until the data communications task 
has retrieved internal data. 

Wait for a return post from data communications: ^^ 

• If return code from data communications task is hex 01 , go toQ. 

• If return code from data communications task is hex 02: 

— Call t he tr ansient addressed in the CSB. 

- GotoQ. 

• If return code from data communications task is hex 00, return to caller. 



#SVTTC 



Diagram 6.23. Perform Data Management Task Transfer Control Function 
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From: User Program 



■ INPUT 



C 2 



Parameter list 
Main Storage 



Transient Area: 
#SVDMP 



User Area 




PROCESS 



:> 



Dump main storage according to user 
parameter list 



^> 




OUTPUT 



Formatted main 
storage dump 



To: User Program 



DESCRIPTION 


MODULE/ 
ROUTINE 


SB Move parameter list to temporary area. 


#SVDMP 


Initialize work area. 




Calculate dump limits. 




If limits invalid: 

• Issue error message. 




#CLSP 


• Return to caller. 

Get headings messages for dump header. 




#SVDMP 


Blank buffer. 




Set up buffer for SYSLIST. 




Move all limits information to header. 




^^ Set up line of dump. 
Print line of dump. 
If more lines to dump, go toQ^3. 




#CLSP 


#SVDMP 


Free buffer area. 




Return to user program. 





Diagram 6.24. Perform Snap Dump Function 
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Program Organization 

Figures 6-2 through 6-26 show the control flow of the 
system service functions. 




Find a Library 
Routine 
(#MAFLB) 



I Disk VTOC I 
| Read/Write I 
I (@CSVF) I 



Figure 6-2. Find a Library Control Flow 
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Calling 
Program 



* 



» 



Single Name 
Find Routine 
(#MASFN) 



T 

Error 

1. 



Disk IOS 



SYSLOG 
(#CLSG) 



Figure 6-3. Single Name Find Routine Control Flow 




Librarian Find 
Routine 

($MAFND 
or 

$MALFN) 




Figure 6-4. Librarian Find Control Flow 
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Source Library 
Get Routine 

(#MASGT) 
or 

WMASYL) 



» 



Disk IOS 



Figure 6-5. Source Library Get Routine Control Flow 




Open/Close 
Routine 
($MACOM 

or 
SMALCO) 




Error 



SYSLOG 



(#CLSG) 



Figure 6-6. Library Record Put Routine Control Flow 
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Calling 
Program 



ifflHS^H 



Open/Close 

Routine 

($MACOM 

or 
$MALCO) 



Library Sector 
Get/Put Routine 



($MAPGS) 



I 



Single Name 
Find Routine 



(#MASFN) 



* 



Disk IOS 



Figure 6-7. Library Sector Get/Put Routine Control Flow 
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Find Routine 

(0MASFN) 


Calling 
Program 


t 1 


Library Member 
Protection Routine 
(#MAMPM) 








■ 
Error 

t 


SYS LOG 
(0CLSG) 





Figure 6-8. Library Member Protection Control Flow 
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Calling 
Program 









Active Format 1 

Access Routine 

(#CSAF) 



Figure 6-9. AFA Access Routine Control Flow 
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Cross Reference 
Resolver 
(#MAXRF) 



Disk IOS 




Module Not in 
Resident Table ' 



SYSLOG 
(#CLSG) 



no-op Routine 
(#MANOP) 




Figure 6-10. Cross Reference Resolver Control Flow 
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Duplicate Key 
Display Routine 
(#CSDK) 




Figure 6-11. Duplicate Key Display Control Flow 



Disk IOS 



Calling 
Program 



4 



» 



4 



Print Image 
Verify Routine 
(#CSIM) 



I 



Printer IOS 
($IPTR) 



SYS LOG 

(#CLSG) 



Figure 6-12. Print Image Verify Routine Control Flow 
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» 



Disk VTOC 
Read/Write 

(#CSVF) 
or 

(@CSVF) 



» 



Disk IOS 



Figure 6-13. Disk VTOC Read/Write Control Flow 
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Diskette 
VTOC 
Read/Write 
(#CSVI) 




Diskette VTOC 
Read/Write 
Transient Load 2 
(#CSVJ) 



© 



4 



» 



Diskette VTOC 
Read/Write 
Transient Load 3 
(#CSVK) 





Figure 6-14. Diskette VTOC Read/Write Control Flow 
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» 



Message Retrieve 
(#MGRET) 



* 



» 



Disk IOS 



Figure 6-15. Message Retrieve Control Flow 



6-60 



Licensed Material— Property of IBM 



Calling 
Program 




SYSIN Load 
Transient 



(#CLSN) 



a 



SYSIN 

Mainline 



(#CLSS) 



(#CLXS) 



| Procedure Data I 



I Keyboard Data Ml 



Blocks 
Existence Test 



WCLBLl 



Active 
Procedure 
Existence Test 
llCCLAC) 



File Existence 
Test 



(0CLFX) 



Substitution 
Routine 



<#CLSB) 



SYSIN 
Prompt/ 
Substitution 
(#CLPR) 



History File 
Put 



(@HFPUT) 



# 




Source Get 
(iCMASYL) 



Command 
Processor 
Keyboard D.M. 
(#CMWI) 




Allocate 
Diskette 



(#CAR1) 



Diskette 
VTOC 
Read/Write 
(#CSVI) 



Disk VTOC 
Read/Write 



(iPCSVF) 



WCLXS) 
-To Prompt User- 



System Find 
(#MASFN) 



Library Find 
(#MAFLB) 



Figure 6-16. SYSIN Control Flow 
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Calling 
Program 



Message 

Retrieve 

(#MGRET) 



SYSLOG 
(#CLXS) 



If Type 



4 



F 1 

1 Parameter ■ 



m 



SYSLIST 

(printer) 

(#CLST) 



SYSLIST CRT or Option to Ml C 3701 



SYSLIST 

(CRT) 

(#CLSC) 



Message 

Retrieve 

(#MGRET) 



I 



SYSLOG 



(#CLXS) 



Note: Whenever SYSLIST (transient) is called, #CLST is loaded into the transient area first. 
Figure 6-17. Transient SYSLIST Control Flow 
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Printer 

Allocate 

(#CAPT) 



Printer 

IOS 

(IPTR) 



Command 
Processor 
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Calling 
Program 

If 

TCBRTUB = 
X'0000' 

or 
SYSLIST = 
Off 

or 
SYSLIST = 
Printer 

If 

SYSLIST = 
CRT 



Message 

Retrieve 

(0MGRET) 



SYSLOG 



(#CLXS) 



* 



4 



M 



SYSLIST 

(printer) 

(#CLSP) 



Printer 

Allocate 

(#CAPT) 



♦ 



Option to MIC 3701 



» 



SYSLIST 

(CRT) 

(#CLSW) 



Printer 
I OS 
(IPTR) 



4 



Command 
Processor 
(#CMLS) 



Message 

Retrieve 

(#MGRET) 



SYSLOG 



(#CLXS) 



Note: The SLSTL macro loads either #CLSP or #CLSW into the user specified area. 
Figure 6-18. Loadable SYSLIST Control Flow 
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Calling 
Program 



SYS LOG 
Push/Pull 
Transient 
(#CLXS) 



I 



SYS LOG 
Mainline 
(#CLSG) 



Message 
Retrieve 
(@MGRET) 



History 
File Put 
(@HFPUT) 



Command 
Processor 
WCMWO) 
(#CMCI) 



Printer IOS 



(IPTR) 



Cancel 
Option 



End-of-Job 
Transient 

(#CTEI) 



Figure 6-19. SYSLOG Control Flow 




History File Put 
(#HFPUT) 

or 
(@HFPUT) 




Disk IOS 



Figure 6-20. History File Put Control Flow 
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Supervisor 
Task Attach 
Transient 
(0SVAT) 



* 



4 



« 



Free 

Function 
-Control Storage- 



» 



Queue/Dequeue 
Function 
-Control Storage- 



Assign 
Function 
-Control Storage- 



» 



» 



Time-of-Day 
Function 
-Control Storage- 



Task Work 
Area Function 
-Control Storage- 



» 



Stack 

Manipulation 
Function 
-Control Storage- 



Figure 6-21. Supervisor Task Attach Function Control Flow (#SVAT) 
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Supervisor 
Task Detach 
or Change Org 
Point 
(#SVAU) 



» 



Free 

Function 
-Control Storage- 



Free Page 
Function 
-Control Storage- 



» 



Queue/Dequeue 
Function 
-Control Storage- 



Enable 

Transient 

Area 

-Control Storage- 



» 



Load ATRs 
Function 
-Control Storage- 



fr 



Get Page 
Function 
-Control Storage- 



Figure 6-22. Supervisor Task Detach or Change Origin Point Function Control Flow (#SVAU) 
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Calling 
Program 



» 



Syntax 
Checker 
(#USYX) 



Figure 6-23. Syntax Checker Control Flow (#USYX) 
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Retrieval 
Transient 
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Figure 6-24. Information Retrieval Control Flow 
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(#CTEI) 



Program Organization 6-67 



Licensed Material— Property of IBM 



User 
Program 




■ RIB hexl E ■■1^' 




Data 

Management 
Task Transfer 
Control 
WSVTTC) 









. Intertask 
'Communication 



Data 

Communications 

Task 1 



See IBM System/34 System Support Program Logic Manual: Data Communications, LY 21 -0051 . 
Figure 6-25. Data Management Task Transfer Control Flow 



User 
Program 






Snap Dump 
Transient 
WSVDMP) 










Figure 6-26. Snap Dump Control Flow 
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Data Areas 

FIND A LIBRARY PARAMETER LIST 

The find a library parameter list is a 10-byte parameter 
required when the find a library routine (#MAFLB) is 
called. The caller of #MAFLB places the address of the 
leftmost byte of this parameter list in XR2. 

Figure 6-27 shows the format and contents of the para- 
meter list. 



SYSTEM FIND PARAMETER LIST 

The system find parameter list is required when single 
name find routine (#MASFN) is called. The caller of 
#MASFN places the address of the leftmost byte of the 
parameter list in XR2. 

Figure 6-28 shows the format of the system find para- 
meter list for input. Figure 6-29 shows the two formats 
(loader and user) for output. 



Displacement of 






Leftmost Byte 


Length 




in Hexadecimal Label 


in Bytes 


Description 


FLBNAME 


8 


Library name 


8 FLBF1A 


2 


Address of 
F1 in AFA 



Figure 6-27. Find a Library Parameter List 
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Displacement of 








Leftmost Byte 




Length 




in Hexadecimal 


Label 


in Bytes 


Description 





$FNDDTYP 


1 


Library type 




$FNDMLD8 




X'08' Load module 




$FNDMSB8 




X'04' Subroutine 




$FNDMSRC 




X'02' Source module 




$FNDMPRC 




X'OT Procedure 


1 


$FNDDNM8 


8 


Member name 


9 


$FNDDOPR 


1 


Operation switches 




$FNDMSYS 




X'80' Search system library only 




$FNDMLDR 




X'40' Build loader parm list only 




$FNDMUSE 




X'20' Search user library only 




$FNDMULB 




X'10' Search user library in $FNDDF1A 




$FNDMRF1 




X'08' Return library F1 address 


A 


$FNDDF1A 


2 


Library format 1 address 


A 


$FNDDLDA 


2 


Load address 



Figure 6-28. Single Name Find Input Parameter List 
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Displacement of 
Leftmost Byte 
in Hexadecimal 




3 
4 
6 
8 
9 
A 


3 
4 



8 
9 
A 
D 

E 
F 
11 



Label 

$FNDDADR 
$FNDDNOS 
$FNDDLNK 
$FNDDSCT 
SFNDDRLD 
$FNDDTNS 
$FNDDLDA 

SFNDDADR 

SFNDDNOS 

SFNDDLNK 

$FNDDNST 

$FNDDSCT 

$FNDDF1F 

$FNDDRLD 
SFNDDCRS 
$FNDDATT 
$FNDDMRT 

SFNDDREL 
$FNDDTOT 
SFNDDCOM 
$FNDMSYR 



Length 
in Bytes 

(Loader Format) 

3 

1 

2 

2 

1 

1 

2 
(User Format) 

3 

1 

2 

2 

2 

2 

1 
1 
3 
1 

1 
2 

1 



$FNDMUSR 
Figure 6-29. System Find Output Parameter List 



Description 

.Library disk address 
Number of text sectors 
Link edit address 
Start address 
RLD displacement 
Total number of sectors 
Load address 

Library disk address 

Number of text sectors or record length 

Link edit address 

Number of statements (S or P) 

Start address (0 modules) 

Format 1 address of the library in which 
the member was found (if requested) 

RLD displacement (0 modules) 

Program size-sectors (0 modules) 

Member attribute bytes 

Type - MRTMAX count 
TypeP-X'FF' MRT 

Module release level 

Module size in sectors 

Completion code 

X'80' Found in sys lib 

X'40' Found in user lib 
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LIBRARIAN FIND PARAMETER LIST 

The librarian find parameter list is a 24-byte parameter 
required when the library find routine ($MAFND or 
$MALFN) is called. The caller of $MAFND or $MALFN 
places the address of the leftmost byte of this parameter 
in XR2. 



The transient version ($MAFND) requires a 25-byte work 
area following the parameter list. 

Figure 6-30 shows the format and contents of the para- 
meter list. 



Displacement of 








Leftmost Byte 




Length 




in Hexadecimal 


Label 


in Bytes 


Description 





LFDDTYPE 


1 


Library type 


1 


LFDDNAME 


8 


Member name or partial name 1 


9 


LFDDFUNC 


1 


Function byte 




LFDMWRTS 




X'80' = Write buffer after find 




LFDMTYPO 




X'08' = Load module find 




LFDMTYPR 




X'04' = Subroutine member find 




LFDMTYPS 




X'02' = Source member find 




LFDMTYPP 




X'01' = Procedure member find 


A 


LFDDFNC2 


1 


Function Byte 2 




LFDMSYSL 




X'80' = Search system library 




LFDMUSEL 




X'40' = Search designated user library 


B 


LFDDREPL 


1 


Reply byte 




LFDMFNDS 




X'80' = Found a member 




LFDMFTBS 




X'40' = Member found in this buffer 




LFDMEOFS 




X'20' = No more members 




LFDMWTBS 




X'10' = Previous buffer written 




LFDMSYSR 




X'08' = Found in system library 




LFDMUSER 




X'04' = Found in designated library 




LFDMFND1 




X'OT = Found member in current library 



If partial name, eighth byte is length of name 
Figure 6-30 (Part 1 of 2). Librarian Find Parameter List 
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Displacement of 




Leftmost Byte 




in Hexadecimal 


Label 


C 


LFDDLBF1 


E 


LFDDIRPT 


10 


LFDDBUF@ 


12 


LFDDBUFS 


13 


LFDDIOBS 



16 LFDDNSEC 

Figure 6-30 (Part 2 of 2). Librarian Find Parameter List 



Length 
in Bytes 



Description 

F1 address of library to search (if 0, 
check LFDMSYSLand LFDMUSEL) 

Address of found directory entry 

Address of caller's buffer 

Buffer size in sectors 

Save area for SSS 

Number of sectors in member 
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SOURCE LIBRARY GET PARAMETER LIST 

The source library get parameter list is a 19-byte parameter 
required when the source library get routine (#MASGT or 
#MASYL) is called. The parameter list has two formats. 
Figure 6-31 shows the format of the input parameter list, 
used when a find is requested. Figure 6-32 shows the 
format of the output parameter list, used when the caller 
requests a get. 

The caller of #MASGT or #MASYL must place the address 
of the leftmost byte of this parameter in XR2. The tran- 
sient version (#MASGT) requires a 15-byte work area 
following the parameter list. 



Displacement of 








Leftmost Byte 




Length 




in Hexadecimal 


Label 


in Bytes 


Description 





GETDFNCT 


1 


Function byte (input options) 




GETMFIND 




X'80' Find request 




GETMFRST 




X'40' Get first 




GETMNEXT 




X'20' Get next 


1 


GETDTYPE 


1 


Member type 




GETMSRCE 




S — Source 




GETMPROC 




P — Procedure 


2 


GETDNAME 


8 


Member name 


A 


GETDLBF1 


2 


F1 address of library to search 
search system library 


C 


GETDADDR 


2 


Record buffer address 


E 


GETDSIZE 


1 


Buffer size in bytes 


F 


GETDFCT2 


1 


Function byte 2 




GETMSOBK 




X'20' Return start of blanks ir 
in record buffer (X'FF') 




GETMREPR 




X'10' Reprime request 


10 


GETDIOBF 


2 


Read source buffer 



12 GETDBFSZ 

Figure 6-31. Source Library Get Input Parameter List (find format) 



Buffer size in sectors 
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Displacement of 






Leftmost Byte 




Length 


in Hexadecimal 


Label 


in Bytes 





GETDREPL 

GETMTER 

GETMTRNC 

GETMNFND 

GETMEOF 


1 


1 


GETDSSS 


3 


4 


GETDEND 


3 


7 


GETDBNOW 


2 


9 


GETDBEND 


2 


B 


GETDLGTH 


1 


C 


GETDADDR 


2 


E 


GETDSIZE 


1 


F 


GETDCOMP 


1 


10 


GETDIOBF 


2 



12 GETDBFSZ 

Figure 6-32. Source Library, Get Output Parameter List (get format) 



Description 

Reply byte (output options) 

X'08' Terminal error 

X'04' Truncated record 

X'02' No find 

X'01'Endof file 

Sector address processing now 

Sector address of last record 

Address of byte in I/O buffer to process 

Address of last byte in I/O buffer to 
process 

Record length 

Record buffer size 

Record buffer address 

Completion switch 

I/O buffer address 

I/O buffer size 
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AFA ACCESS PARAMETER LIST 

The AFA access parameter list is required when the active 
format 1 area access routine (#CSAF) is called. The caller 
of #CSAF places the address of the leftmost byte of the 
parameter list in XR2. 

Figure 6-33 shows the format of the AFA access parameter 
list. 



Displacement of 








Leftmost Byte 




Length 




in Hexadecimal 


Label 


in Bytes 


Description 





AF1DFNCT 


1 


Function byte 




AF1MREAL 




X'80' Real I/O area address 




AF1MVFID 




X'40' Verify ID 




AF1MGTLB 




X,20' Get by label 




AF1MGTAD 




X'10' Get by address 




AF1MGTNM 




X'08' Get by name 




AF1MTPUT 




X'04' Put request 




AF1MDATE 




X'02' Verify date request 




AF1MF1MV 




X'OT Move F1 to user I/O area 


1 


AF1DRTRN 


2 


Return code 




AF1MIMORM 




X'40' Good completion 




AF1MINVD 




X'41' Invalid request 




AF1MNTMT 




X'44' Request not met 


3 


AF1DF1PT 


3 


Pointer to format 1 


6 


AF1DNMLB 


8 


Format 1 name or label 


E 


AF1DUNIT 


1 


Unit 




AF1MF1 




XW Disk unit 




AF1MI1 




X'10' Diskette unit 




AF1MNU 




X'FF' No unit specified 


F 


AF1DDATE 


3 


Date 


12 


AF1DIOAR 


3 


User I/O area address 



Figure 6-33. AFA Access Parameter List 
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DUPLICATE KEY DISPLAY PARAMETER LIST 

The duplicate key display parameter list is required when 
the duplicate key display routine (#CSDK) is called. The 
caller of #CSDK must place the address of the leftmost 
byte of the parameter list in XR1 . 

Figure 6-34 shows the format of the duplicate key halt 
parameter list. 



Displacement of 








Leftmost Byte 




Length 




in Hexadecimal 


Label 


in Bytes 


Description 





DKHDFLAG 


1 


Flag byte 




DKHMKEYR 




X'80' Key address real 




DKHMMSGR 




X'40' Message addr real 




DKHMPROC 




X'08' Option 




DKHMRTRY 




X'04' Option 1 




DKHMCNCL 




X'02' Option 2 




DKHMTER1 




X'OT Option 3 


1 


DKHDKEYA 


2 


Key address (left byte) 


3 


DKHDMSGA 


2 


Message address (left byte) 


5 


DKHDCOMP 


4 


Component ID 


9 


DKHDMICN 


2 


MIC number 


B 


DKHDF1AD 


2 


Format 1 address 



Figure 6-34. Duplicate Key Display Parameter List 
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SUPERVISOR TASK ATTACH PARAMETER LIST 

The task attach parameter list is a 16 byte parameter 
required when the supervisor task attach transient 
(#SVAT) or the supervisor task detach transient (#SVAU) 
is called. The caller of #SV AT or #SVAU places the 
address of the leftmost byte of the parameter in XR1. 

Figure 6-35 shows the format and contents of the 
parameter list. 



Displacement of 




Leftmost Byte 




in Hexadecimal 


Label 





$ATLOAD 


1 


$ATFLAG 




$ATCREAT 




SATREAL 




$ATTUBAS 




$ATNONAM 




$ATDATA 




$ATPRIV 




$ATNSWAP 




$ATERPRM 




$ATINIT 




$ATSPOOL 




$ATBATCH 


2 


$ATMSSIZ 


3 


$ATPRIOR 


4 


$ATTUB@ 



Length 
in Bytes 

1 



Figure 6-35 (Part 1 of 2). Supervisor Task Attach Parameter List 



Description 

Loader parameter list offset 

First flag byte offset 

X'80' = Create new TCB 

X'40'= Real link address 

X'20' = on = TUB address 
off = JCB address 

X'10' = on = Do not assign job name 
off = Assign job name 

X'08' = Put data in session work area 

X'04' = Task privileged 

X'02' = Not swappable 

X'OT = Free attach parameter list 

Start Initiator 

Start Spool 

Start Batch 
Number of 2K main storage blocks 
Priority of new task 
TUB address 
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Displacement of 








Leftmost Byte 




Length 




in Hexadecimal 


Label 


in Bytes 


Description 


4 


$ATJCB@ 


2 


JCB address 


6 


$ATSSSN 


4 


SSSN value of next transient 


A 


$ATFLAG1 


1 


Second flag byte 




$ATRFRSH 




X'80' = Refresh 




$ATCOMON 




X'40' = Program has Common 




$ATQKINT 




X'20' = Attach Initiator 




$ATINCJC 




X'1 0' = Increment job count 




SATSYSTK 




X'08' - Attach system task 


B 


SATTSKID 


1 


Task ID of attached task 


C 


$ATDATA@ 


2 


Address of data to put 


E 


$ATLENG 


1 


Length of attach parameter list 



Figure 6-35 (Part 2 of 2). Supervisor Task Attach Parameter List 
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SUPERVISOR TASK ATTACH ERROR RETURN CODE 

Supervisor task attach supplies an error return code in XR1 
if the task attach function is not successful. The format of 
the error code in XR1 is OOXX, where XX is the error 
return code. Figure 6-36 shows the format and contents 
of the error return code. 

Label XX Description 

$ATERR01 X'OT Not enough storage space 

$ATERR02 X'02' Task nonswappable and not enough 
storage space 

$ATERR03 X'03' Task nonswappable and storage 
requirements will disable task 

$ATERR04 X'04' Assign failure on TCB 

$ATERR05 X'05' Assign failure on RB 

$ATERR06 XW Allocate failure for swap area 

$ATERR07 X'07' Allocate failure for work station 
work area 

$ATE R R08 X'08' Assign failure for ACE 
Figure 6-36. Supervisor Task Attach Error Return Codes 



SYNTAX SPECIFICATION MODULE 

The syntax specification module is used by the syntax 
checker (#USYX) to determine if the control statement 
passed is valid. Each utility has its own syntax specification 
module that resides in the system library. Figure 6-37 lists 
the syntax specification modules. 





Syntax Specification 


Utility 


Module Name 


Library maintenance 


$MASPC 


Basic data exchange 


$BITAB 


Disk copy/display 


$COTAB 


File delete 


$DETAB 


Diskette copy 


$DUTAB 


History file display 


$HISTAB 


Diskette labeling and initialization 


$INTAB 


VTOC display 


$LABTB 


Create message member 


$MGTAB 


Set 


$SETSM 


File build 


$FBTAB 


Disk compress 


$PAKTB 


Menu build 


$BMTB 


Display format generator 


$SFTB 



Figure 6-37. Syntax Specification Modules 
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The USCTMODN field of the communication table passed 
by the calling utility contains the specification module 
name, and the USCTSSMP field contains the specification 
module address. The specification module is loaded fol- 
lowing #USYX in main storage or at the address specified, 
and consists of one or more control statement syntax 
specifications as shown in Figure 6-38. 

There is one control statement syntax specification for 
each possible control statement for the utility. 

Verb Record 



VERB RECORD -VERB 

The verb record is a 14-byte record in the control statement 
syntax specification that contains the name and numeric 
identifier of a control statement verb. The first verb is at 
the main storage address specified in USCTSSMP and the 
current verb record is at the address specified in 
USCTVRB@. When a control statement is read by the 
syntax checker (#USYX), this record is checked to deter- 
mine if the verb passed matches the verb of this verb 
record. If not, the VRBDNEXT fields contains the 
address of the next verb record to check. 



Control 
Statement 
Syntax 
.Specification 



to 64 Parameter Records (positional, 
keyword, or both) 

to 64 Substitution Tables as 
Required to Define Parameter Values 

Valid Combination Records as 
Required to Define the Acceptable 
Combinations of Parameter Values 

Verb Record 

to 64 Parameter Records 

to 64 Substitution Tables 



Figure 6-39 shows the format and contents of the verb 
record. 



PARAMETER RECORDS 

There are two types of parameter records; positional and 
keyword. Parameter records follow the verb record in the 
control statement syntax specification. After the verb 
record for the control statement has been determined, the 
parameter records indicate the valid parameters and para- 
meter values for the control statement. 



POSITIONAL PARAMETER RECORD - POSIT 



Valid Combination Records 

Note: The format and contents of the verb record, para- 
meter records, substitution tables, and valid combination 
records, are included in this Data Areas section. 

Figure 6-38. Syntax Specification Module 



The positional parameter record, POSIT, is a 13-byte or 
21 -byte record that contains information for a single 
positional parameter. The USCTPOS@ field of the 
communication table contains the address of the current 
record. Figure 6-40 shows the format and contents of the 
positional parameter record. 



Displacement of 








Leftmost Byte 




Length 




in Hexadecimal 


Label 


in Bytes 


Description 





VRBDHEAD 


1 


Constant V 


1 


VRBDVBID 


1 


Verb ID, X'01'toX'FF' 


2 


VRBDNAME 


8 


Verb name 


A 


VRBDNEXT 


2 


Pointer to next verb record 


C 


VRBDVALC 


2 


Pointer to a set of valid combination 
records (VALCM) 



Figure 6-39. VERB Verb Record 
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Displacement of 








Leftmost Byte 




Length 




in Hexadecimal 


Label 


in Bytes 


Description 





POSDHEAD 


1 


Constant P 


1 


POSDPSID 


1 


Unique ID for this record 
X'01'toX'FB' 



POSDNAME 



POSDIND1 



POSDRESV 
POSDATTR 



POSDMINM 

POSDMAXM 

POSDOUT@ 

PASDSIZE 
POSDDEFL 



POSDDEFV 



Figure 6-40. POSIT Positional Parameter Record 



Position number of the parameter in 
this control statement 

Parameter flag 

0=optional parameter 
1=required parameter 

Reserved 

Attribute 

L=label 

Z=partial name 
N=numeric characters 
C=numeric characters to be 

converted to binary 
S=string of characters except 

blank, comma, and hyphen 
Q=character string optionally 

enclosed in single quotes 
D=date format 

Minimum parameter value 

Maximum parameter value 

Displacement of leftmost byte of 
parameter value in output area of 
communication table (USCTPOUT) 

Length of parameter value in output area 
of communication table (USCTPOUT) 

Default length 

X'08'=default length 
X'00'=no default 

Default value for parameter 
(optional field) 
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KEYWORD PARAMETER RECORD - KEYWD 



SUBSTITUTION TABLE - SUBEN 



The keyword parameter record, KEYWD, is a 22-byte or 
30-byte record that contains information for a single 
keyword parameter. The USCTKEY@ field of the com- 
munication table contains the address of the current 
record. Once a keyword parameter has been found in the 
control statement, the parameter records are scanned to 
find the matching keyword parameter record. When a 
match is found, the keyword parameter record indicates 
where the value should be placed in the output area 
(USCTPOUT) of the communication table. 

Figure 6-41 shows the format and contents of the keyword 
parameter record. 



A substitution table is an 1 8-byte table that consists of a 
3-byte header record and one or more 15-byte entry 
records. A substitution table specifies a parameter that 
should have a value substituted for it in the output area 
(USCTPOUT) of the communication table and the value that 
should be substituted. From to 64 substitution tables 
can follow the last parameter record in a control statement 
syntax specification. 

Figure 6-42 shows the format and contents of a header 
record. Figure 6-43 shows the format and contents of an 
entry record. 



Displacement of 








Leftmost Byte 




Length 




in Hexadecimal 


Label 


in Bytes 


Description 





KEYDHEAD 


1 


Constant K 


1 


KEYDKYID 


1 


Unique number for this record 
X'01'toX'FB' 


2 


KEYDNAME 


8 


Parameter keyword 


A 


KEYDIND1 


1 


Parameter flag 

O=optional parameter 
1=required parameter 


B 


KEYDRESV 


1 


Reserved 


C 


KEYDATTR 


1 


Attribute 



L=label 

Z=partial name 
N=numeric characters 
Onumeric characters to be 

converted to binary 
S=string of characters except 

blank, comma and hyphen 
Q=character string enclosed in 

single quotes 
D=date format 



D KEYDMINM 3 

10 KEYDMAXM 3 

Figure 6-41 (Part 1 of 2). KEYWD Keyword Parameter Record 



Minimum parameter value 
Maximum parameter value 
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Displacement of 
Leftmost Byte 
in Hexadecimal 

13 



14 



15 



Label 
KEYDOUT@ 

KEYDSIZE 
KEYDDEFL 



16 



KEYDDEFV 



Figure 6-41 (Part 2 of 2). KEYWD Keyword Parameter Record 



Displacement of 




Leftmost Byte 


Label 





SBTDHEAD 


1 


SBTDSBID 


2 


SBTDREST 



Figure 6-42. SUBEN Substitution Table Header Record 



Length 
in Bytes 

1 



Length 
in Bytes 

1 

1 



Description 

Displacement of leftmost byte of 
parameter value in output area 
(USCTPOUT) of communication table 

Length of parameter value in 
communication table 

Default length 

X'08'=defau It length 
X'00'=no default 

Default value for parameters 
(optional field) 



Description 

Constant S 

Unique number of parameter record 
associated with its substitution table 

Substitution value flag 

1=only the specific values in the 

substitution table entries are 

meaningful 
0=specific values in the substitution 

table entries are not all of the 

meaningful values 
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Displacement of 




Leftmost Byte 


Label 





SBEDHEAD 


1 


SBEDRCID 



SBEDSUBS 
SBEDATTR 



Length 




in Bytes 


Description 


1 


Constant E 


1 


Unique number for this record 




X'01'toX'FF' 


3 


Substitution value 


1 


Attribute 



SBEDOUT@ 



SBEDSIZE 



SBEDVALU 



Figure 6-43. SUBEN Substitution Table Entry Record 



VALID COMBINATION RECORD 

The valid combination record, VALCM, is a 7-, 10-, 13-, 
16-, 19-, 22-, 25-, or 28-byte record used to determine if 
the parameters and/or parameter values are used in valid 
combination in the control statement. The VRBDVALC 
field of the verb record (VERB) contains the address of the 
set of valid combination records. 

Figure 6-44 shows the format and contents of a valid 
combination record. 



L=label 

Z=partial name 
N=numeric characters 
C=numeric characters to be 

converted to binary 
S=string of characters except 

blank, comma, and hyphen 
Q=character string enclosed in 

single quotes 
D=date format 

Displacement of leftmost byte of 
substitution value in output area of 
syntax checker communication table 

Length of substitution value in 
communication table 

Real value of parameter as it would 
appear in the control statement 
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Displacement of 
Leftmost Byte 
in Hexadecimal 



1 



Label 

VALDHEAD 
VALDRCID 

VALDCOMP 

VALDNMBR 
VALDENT1 



Length 
in Bytes 

1 

1 



VALDNXT1 



Description 

Constant C 

ID of a parameter record associated 
with this record 

Indicator for complemented entries; that 
is, parameter flag meaning or value is 
complemented 

Number of entries 

Parameter value flag 

X'FE'=parameter must not be 

present 
X'FD'=parameter is required and some 

value must be specified 
X'FC'=parameter is ignored 
X'FB' to X'01 -substitution table 

entry that contains the 

parameter value 

Pointer to another valid combination 
record, or X'FFFF' indicating the end 
of the set of valid combinations 



Note: Any pair of the following fields may appear (VALDEn with VALDXn) in the valid combination record as needed to 
describe the valid parameter combinations. 



7 

8 

A 

B 

D 

E 

10 

11 

13 



VALDENT2 
VALDNXT2 
VALDENT3 
VALDNXT3 
VALDENT4 
VALDNXT4 
VALDENT5 
VALDNXT5 
VALDENT6 



SameasVALDENTI 
Same as VALDNXT1 
SameasVALDENTI 
Same as VALDNXT1 
SameasVALDENTI 
SameasVALDNXTI 
SameasVALDENTI 
SameasVALDNXTI 
SameasVALDENTI 



Figure 6-44 (Part 1 of 2). VALCM Valid Combination Record 
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Displacement of 




Leftmost Byte 




in Hexadecimal 


Label 


14 


VALDNXT6 


16 


VALDENT7 


17 


VALDNXT7 


19 


VALDENT8 


1A 


VALDNXT8 



Length 




in Bytes 


Description 


2 


SameasVALDNXTI 


1 


SameasVALDENTI 


2 


SameasVALDNXTI 


1 


SameasVALDENTI 


2 


SameasVALDNXTI 



Figure 6-44 (Part 2 of 2). VALCM Valid Combination Record 



SYNTAX CHECKER COMMUNICATION TABLE - 
USCTABLE 

The syntax checker communication table, USCTABLE, is 
a table indicated by the utility that calls the syntax checker 
(#USYX). The first 2 bytes of the syntax checker para- 
meter list passed by the utility contain the address of the 
communication table. 

The communication table is returned to the utility to 
indicate the following control statement information: 

• Errors that were detected 

• Parameters specified 

Figure 6-45 shows the format and contents of the 
communication table. 
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Displacement of 




Leftmost Byte 




in Hexadecimal 


Label 





USCTRES1 


1 


USCTOUTL 


2 


USCTINBP 


4 


USCTRES2 


5 


USCTINBL 


6 


USCTSSMP 


8 


USCTMODN 



Length in 
Bytes in 
Decimal 


Description 


1 


Reserved 


1 


Length of output area 
(fromXWtoX'FF') 


2 


Address of input buffer 


1 


Reserved 


1 


Length of input buffer 
(from X W to X'78') 


2 


Address of syntax specil 


8 


Syntax specification mc 



Note: The syntax checker overlays the USCTMODN field with the following 8 bytes. 



8 
9 



USCTERRT 
USCTERRC 



USCTERRP 



USCTVRBN 



USCTPARF 



USCTPARL 



Figure 6-45 (Part 1 of 2). USCTABLE Syntax Checker Communication Table 



Reserved 

Completion code 

X'FFFF'=no errors 
X'FFFE'=statement continued 
X'nnnn' =error, where nnnn is the 

message identification code 
(MIC) that is issued 

Address of the first byte of the field in 
the area of error 

Hexadecimal constant associated with 
the control statement verb 

Hexadecimal constant ID of the first 
record after the verb record 

KEYNUM of last (current) POSIT or 
KEYWD record processed 



6-88 



Licensed Material— Property of IBM 



Displacement of 
Leftmost Byte 
in Hexadecimal 

10 



Label 

USCTPMAP 



Length in 
Bytes in 
Decimal 

8 



Description 

Indication of parameters specified in 
the control statement 



18 



USCTCNTL 



Control area to allow syntax checker to 
be reentrant with area subdivided as 
follows: 



USCTVRB@ 



Main storage address of current verb 
record 



USCTPOS@ 



Main storage address of current 
POSIT record 



USCTKEY@ 



Main storage address of current 
KEYWD record 



20 



USCTERNM 



Reserved 

Contains from one to eight characters 
for insert into error message when 
USCTERRC contains a MIC 



28 



USCTPOUT 





to 

255 



Figure 6-45 (Part 2 of 2). USCTABLE Syntax Checker Communication Table 



Output area for the syntax checker that 
contains the parameter values specified 
on the control statement or values 
substituted for the parameter values 



Data Areas 6-89 



Licensed Material— Property of IBM 



SYNTAX CHECKER PARAMETER LIST 

Each time the syntax checker (#USYX) is called, register 2 
must contain the address of a 6-byte parameter list that 
indicates the (1 ) address of a communication table, (2) 
address of the verb list to use, (3) name or address of the 
specification module, and (4) source of input. There is one 
parameter list for each verb list that can be passed. 
Figure 6-46 shows the general format and contents of a 
parameter list. 



Displacement of 




Leftmost Byte 


Label 





USCTMP 


2 


VBLSTP 


4 


ENTERD 



Length 
in Bytes 



ENTRY 



Description 

Address of communication table 
Address of verb list 
Specification module information 

X'00'=Load the specification module 
named in the communication 
table 

X'01'=Do not load a specification 
module 

The address of a supplied 
specification module is in the 
communication table 

Control statement input information 

X'00'=Read a control statement from 

the sysin device 
X'01'=The communication table 

indicates the address of the 

control statement 
X'02'=The statement being scanned 

is continued from a previous 

statement 
X'04'=Synonyms (more than one 

form) for verb names 

permitted 



Figure 6-46. Syntax Checker Parameter List 
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Chapter 7. System Maintenance Programs 



Introduction 

The System/34 diagnostic aids that execute in main storage 
are: 

• APAR ($FEAPR) 

• Dump ($FEDMP) 

• Program temporary fix installation program ($FEFIX) 

• Patch ($FEPCH) 

• Trace select ($FETRC) 

• Error recording analysis procedure ($ERAP) 

Introductory information about the diagnostic aid pro- 
grams (their functions and how to run them) is contained 
in the Data Areas Handbook. 

SFEAPR, $FEDMP, $FEFIX, $FEPCH, and $FETRC 
each require 14K bytes of main storage for program 
execution. 
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Method of Operation 

This section contains function diagrams for the diagnostic 
aids. They are: 

• APAR utility (Diagram 7.1) 

• Dump utility (Diagram 7.2) 

• PTF installation function (Diagram 7.3) 

• Patch utility (Diagram 7.4) 

• Trace select function (Diagram 7.5) 

• ERAP utility (Diagram 7.6) 



From: Initiator 



INPUT 




PROCESS 



Data from 
APARFILE 



Data for system 
dump 

Library member 
and PTF 

Disk or diskette 
data 



Data for trace 
select 



I/O counter tables 
and logging tables 



^>* Perform APAR utility function 
4 (Diagram 7.1) 






_j^* Perform dump utility function 

I (Diagram 7.2) 

1^* Perform PTF installation function 

| (Diagram 7.3) 

^^* Perform patch utility function 

f (Diagram 7.4) 

^>* Perform trace select function ~ 
(Diagram 7.5) 



I 



f^ # Perform ERAP utility function 
(Diagram 7.6) 



OUTPUT 



I 



^> File(s) on diskette 



__j^ Printed or 
I displayed data 



I 



^> Modified library 
Module 



I 



|^> Modified data 



|^> Updated control 
store trace options 




^> Formatted tables 
on display station 
or printer 



To: Control Storage End-of-Job 
Transient ($EOJ) 



Diagram 7.0. Overview of System Maintenance Programs 
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From: Initiator 



INPUT 



Main Storage 



Transient Area 



User Area: 
$FEAPR 



Dump area 
Configuration record 
PTF log 
Trace file 
Task work area 
History file 
Input JOBQ 
Spool files 
Disk VTOC 




PROCESS 



> 



|| Prompt for optional data areas 
Q Build APARFILE index 
£J Verify dump area 
Q Create APARFILE 
gj Create optional files if requested 
I Terminate program 



t> 




OUTPUT 



APARFILE on 
diskette 

If requested: 
TWAFILEon 
diskette 
HISTFILEon 
diskette 
JOBQFILEon 
diskette 
SPOLFILEon 
diskette 
VTOCFILEon 
diskette 



To: Control Storage End-of-Job 
Transient ($EOJ) 




DESCRIPTION 



MODULE/ 
ROUTINE 



Issue prompt for additional system areas to be copied to diskette: 

• Task work area (TWA) . 

• System trace file. 

• System history file. 

• Input JOBQ. 

• Spool files. 

• Disk VTOC. 

Build index record containing size and record offset within APARFILE of system data areas to be included. 

Write index record as first record of APARFILE. 

Read first sector of main storage dump area from disk. 

Check dump validity flag (SCADPIND) in SCA to determine dump validity. 

Q Write system area data to APARFILE: 

• Disk dump area. 

• Configuration record. 

• #LIBRARYPTFIog. 

• Trace file (if requested). 

3 Create optional files on diskette if requested: 

• History file (HISTFILE). 

• Input JOBQ (JOBQFILE). 

• Spool files (SPOLFILE). 

• Disk VTOC (VTOCFILE). 

| Pass control to end of Job control storage transient ($EOJ) to terminate program. 



$FEAPR 



Diagram 7.1. Perform APAR Utility Function ($FEAPR) 
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From: Initiator 



INPUT 



Main Storage 



Transient Area 



User Area: 
$FEDMP 
$FESTR 
$FEIOP 
$FEDSK 
$FESYS 
$FECRT 



Control statements 
APARFILE 

Disk storage area: 

• Main storage 
dump 

• Control storage 
dump 

© Configuration 
record 

• PTF log 

• Trace file 

O I/O controller 
dump area 




PROCESS 



:> 



Q Read control statements and determine 
function requested 

3 List main storage or control storage areas 
if requested 

El List disk storage areas if requested 

Q List configuration record, trace file, or 
PTF log if requested 

Q List I/O processor storage area if requested 

I Terminate program 



O 



OUTPUT 



Printed or 
displayed data 




To: Control Storage End-of-Job 
Transient ($EOJ) 



DESCRIPTION 



MODULE/ 
ROUTINE 



Use syntax checker (#USYX) to read and check control statements. 
If verb is DUMP, save keyword information. 

If requested function is: ^^ 

• Dump main storage or control storage areas, go to ££. 

• Dump selected disk storage areas, go to ^J . 

• Dump configuration record, trace file, or PTF log area, go toQ| 

• Dump I/O controller storage area, go tojjg. 

If verb is END, go to ^J. 

Initialize display screen, printer, APARFI LE, and disk as required. 

Display summary of storage dump information. 



$FEDMP 



$FESTR 



Diagram 7.2 (Part 1 of 2). Perform Dump Utility Function (SFEDMP) 
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DESCRIPTION 



MODULE/ 
ROUTINE 



If output to printer specified: 

• Prompt for type of storage dump and address limits. 

• Dump requested main storage or control storage area to printer. ^^ 

• Prompt for another storage area to dump and if E entered, return tod to rea d another control statement. 

If output to display screen: 

• Display first segment of main storage or control storage and TCB address of abnormally terminated task. 

• Accept user request to display other portions of storage. 

• If E entered, return to Qto read another control statement. 

| Initialize display screen, printer, diskette, and disk fields as required. 
^\ Prompt for disk or diskette sectors to be displayed/printed. 
Ensure valid prompt response given. 

If character E response, go to Qto read next control statement. 
Read data from disk or diskette. 

Output disk or diskette sectors requested: 

• If output to display screen specified, put data to screen and roll screen up or down as requested. 

• If E entered, go to^jkto accept new address or end display. 

• If output to printer specified, dump requested sectors to printer. 

• Go to gj% to accept new address or end dump. 

J Initialize display screen, printer, APARFILE, and disk as required. 

If list configuration record request: 

• Read configuration record. 

• Format configuration record for output to printer or display screen. 

• Display or print selected fields from system configuration record. 

If list trace file request: 

• Retrieve trace file data. 

• Format trace file data for output to printer or display screen. 

• If output to printer, start output with oldest sector entry. 

• If output to display screen, start display with last set of entries and accept roll up and roll down keys to 
display additional entries. 

If list PTF log request: 

O |f input is disk, prompt for library name; otherwise, process # LIBRARY. 

• Read PTF log. 

• Format PTF log data for output to display screen or printer . 

• If output to display screen, start display with first set of 40-byte PTF log entries and accept roll up and 
roll down keys to display additional entries. 

© If output to printer, start output with first PTF log entry. 

When requested dump complete, return to§|to read another control statement. 

Q Initialize disk, APARFILE, and printer as required. 

^4 Prompt for I/O controller storage dump area to output to printer; if character E entered, return togjto read 
another control statement. 

Read data from selected device storage dump area. 

Output selected device dump area data to printer. 

When requested I/O processor storage dump complete, go tomato prompt for another dump request or end 
display. 

Bm Pass control to end-of-job transient ($EOJ) to terminate program. 



$FESTR 



$FECRT 



$FESTR 



$FEDSK 



$FECRT 



$FEDSK 



$FESYS 



$FEIOP 



$FEDMP 



Diagram 7.2 (Part 2 of 2). Perform Dump Utility Function ($FEDMP) 
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From: Initiator 



INPUT 



Main Storage 



Transient Area 



User Area: 
$FEFIX 



Control statements: 




PROCESS 



t> 



• 


HDR 




• 


PTF 




e 


DATA 







END 




Library me 


mbers 



J Perform PTF utility initialization 

| Process HDR statement 
gj Process PTF statement 
Q Process DATA statement 
3 Process END statement 
Um Terminate program 



> 




OUTPUT 



Modified library 
modules 

Updated PTF log 



To: Control Storage End-of-Job 
Transient ($EOJ) 



DESCRIPTION 



MODULE/ 
ROUTINE 



Allocate work file space. 

Determine SYSLOG device option. 

Read control statement from SYSI N device and go to appropriate processor: 
© If HDR statement, goto |£J. 

• If PTF statement, go to EH- 

© If DATA statement, go to KJ. 

• If END statement, go to ^J . 

Syntax check HDR statement: 

• If checksum not found (HDR statement blank), indicate field developed patch (ZAP) and save first four 
characters of system date and a '5' for the PTF ID. 

© If checksum found, ensure PTF ID valid. 

Return togjto read next control statement. 

Syntax check PTF statement. 

If library parameter other than # LIBRARY given, find address of library format 1 . 

Locate library module specified. 

Read module from library and place in work file (if not already there). 

If module has overlays: 

• Scan' root RLDs to find RLD end, overlay table address, and number of root RLD sectors. 

• If overlay request, read overlay table from module root and process any errors. 



SFEFIX 



$MAFND 



Disk IOS 



$FEFIX 



Diagram 7.3 (Part 1 of 2). Perform PTF Installation Function ($FEFIX) 
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DESCRIPTION 



MODULE/ 
ROUTINE 



Store module information in PTF table. 

Return toQto read next control statement. 
^ Syntax check DATA statement. 

Read area to be patched in from work file. 

Delete RLDs in patch area. 

Merge RLDs from DATA statement into module RLDs. 

Insert patch data. 

Write patch data and RLDs back to work file. 

Return toQto read next control statement. 
3 Syntax check END statement. 

Set on SYSIN end of file. 
El Log PTF (module name and ID - use system date and a 5 if ZAP) for each module. 

Set on PTF applied indicator in module directory entry. 

Transfer updated modules from work file back to library. 

Pass control to end-of-job transient ($EOJ) to terminate program. 



$FEFIX 



$MAPTF 



$FEFIX 



Diagram 7.3 (Part 2 of 2). Perform PTF Installation Function ($FEFIX) 
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From: Initiator 



■INPUT 



Main Storage 



Transient Area 



User Area: 
$FEPCH 
$FEDSK 
$FECRT 



Control statements 

Disk or diskette 
data 




PROCESS 



> 



Q Read control statements 

Q Initialize fields with keyword information 

3 Prompt for sector address 

Q Display data 

|J Modify data if requested 

[7% Terminate program 



:> 




OUTPUT 



Displayed prompt 
Displayed data 
Modified data 



To: Control Storage End-of-Job 
Transient ($EOJ) 



DESCRIPTION 


MODULE/ 
ROUTINE 


Q Use syntax checker (#USYX) to read and check control statements. 


$FEPCH 


Save keyword information if verb is PATCH. 




If END statement is read, go to^Jto terminate program. 
£2 Initialize display screen, diskette, and disk fields as required. 




$FEDSK 


g£B Prompt for disk/diskette sector to be patched. 




Ensure valid prompt response given. 




If character E response, go to (J to read next control statement. 




Read data from disk or diskette. 
| Display disk/diskette sector requested: 




$FECRT 


• Put data to display screen. 




• Roll screen up or down as requested. 




• If character E entered, go toEJ to prompt for new sector address. 




• Update data area with modified data. 
Knj Write modified data back to disk/diskette. 




$FEDSK 


Return toQto prompt for new sector. 
^3 Pass control to end-of-job control storage transient ($EOJ) to terminate program. 




$FEPCH 



Diagram 7.4. Perform Patch Utility Function ($FEPCH) 
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From: Initiator 



INPUT 



Main Storage 



Transient Area 



User Area: 
$FETRC 



Control store trace 
transient parameter 
list 




PROCESS 



> 



Get current trace indicators and prompt for 
modifications 

Update trace indicators 

Prompt for disk logging options 

Update disk logging indicators 

Terminate program 



t> 




OUTPUT 



Updated control 
store trace options 



To: Control Storage End-of-Job 
Transient ($EOJ) 



DESCRIPTION 



MODULE/ 
ROUTINE 



|j| Call control store trace transient to determine events now being traced. 

Display current trace options and prompt for new options. 
3 Scan CRT buffer for new trace options just entered. 

Update trace control store transient parameter list with new options. 

Call control store trace transient to set new events to be traced. 

gj Prompt for: 

• Start logging to disk . 

• Stop logging to disk. 

• No change. 

Q If STOP option, set stop logging indicator. 

If START option: 

• If old trace file exists, destroy it. 

• Create new trace file with specified size. 

• Obtain area in nucleus for disk logging IOB. 

Call control store trace transient to set new disk logging options for START or STOP request. 
El Pass control to end-of-job control storage transient ($EOJ) to terminate program. 



$FETRC 



Diagram 7.5. Perform Trace Select Function ($FETRC) 
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From: Initiator 



INPUT 



Main Storage 



Transient Area 



User Area: 
$ERAP 
$ERAO 
$ERC0 
$ERCA 
$ERD0 
$EREO 
$ER01 
$ER02 
$ER80 



SCA 

I/O counter tables 

Error counter 

tables 

Error history 

tables 




PROCESS 



m OUTPUT 



X> 



Prompt for device 

Prompt for desired output 

Format I/O counter table, error counter 
table, and error history table for specified 
device 

Reset error counter table or I/O counter 
table if requested 

Terminate program 



> 




Displayed prompts 

Formatted tables 
on display station 
or printer 



To: Control Storage End-of-Job 
Transient ($EOJ) 





MODULE/ 


DESCRIPTION 


ROUTINE 


Q Issue prompt for device or end program: 


$ERAP 


• End. 




• All. 




• Main store processor. 




• Control processor. 




• Disk. 




• Diskette. 




• Line printer. 




• Work station controller. 




• Display stations . 


• 


• Serial matrix printer. 




• BSC. 




If more than one device of a certain type, issue prompt for that specific device. 




I f end option taken , go to |jj . 




Qj Issue prompt for desired output: 




• Display. 




• Print. 




• Print and reset error counter table. 




• Print and reset I/O counter table. 





Diagram 7.6 (Part 1 of 2). Perform ERAP Utility Function 
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DESCRIPTION 



MODULE/ 
ROUTINE 



If print selected, prompt for desired printer. 

If display or print, go to £J. 

If reset, go to (J . 

Format I/O counter table, error counter table, and error history table for specified device. 

If C entered, go to Q. 

Format error counter table and reset, or format I/O counter table and reset. 

Gotofl. 

Pass control to control storage end-of-job transient ($EOJ — control storage). 



$ERAP 



$ERAO 

$ERC0 

$ERCA 

$ERDO 

$EREO 

$ER01 

$ER02 

$ER80 



$ERAP 



Diagram 7.6 (Part 2 of 2). Perform ERAP Utility Function 
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Program Organization 

Figures 7-1 through 7-6 show the control flow of the sys- 
tem maintenance programs. 



Initiator 
Function 



» 



APAR 
Utility 
($FEAPR) 



I 



End-of-Job 
($EOJ) 
-Control Storage- 



Figure 7-1. APAR Utility Control Flow ($FEAPR) 
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Initiator 
Function 



Dump 
Utility 

($FEDMP) 



« 



» 



Disk 
Dump 

($FEDSK) 



* 



Storage 
Dump 

($FESTR) 



System 

Areas 

Dump 

($FESYS) 



I/O 
Processor 

($FEIOP) 



» 



Storage 
Display 

($FECRT) 



» 



Storage 
Display 

($FECRT) 



End-of-Job 
($EOJ) 
-Control Storage- 



Figure 7-2. Dump Utility Control Flow ($FEDMP) 
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Initiator 
Function 



* 



Program 
Temporary 
Fix Utility 
($FEFIX) 



I 



#> 



PTF Log 
Handler 

($MAPTF) 



End-of-Job 
($EOJ) 
-Control Storage- 



Figure 7-3. Program Temporary Fix Utility Control Flow ($FEFIX) 
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Initiator 
Function 



I 



Patch 

Utility 

($FEPCH) 



I 



Disk 
Dump 
($FEDSK) 



« 



Storage 

Display 

($FECRT) 



End-of-Job 
($EOJ) 
-Control Storage- 



Figure 7-4. Patch Utility Control Flow ($FEPCH) 
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Initiator 
Function 



Trace 

Select 

($FETRC) 



I 



Trace 
Transient 
(CXTRACE) 
-Control Storage- 



End-of-Job 
($EOJ) 
-Control Storage- 



Figure 7-5. Trace Select Control Flow ($FETRC) 
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Initiator 
Function 



I 



4 



ERAP 

Utility 

($ERAP) 



I 



Disk 
($ERA0) 



Work Station 
Controller 
($ERCA) 



Display Station and 

Serial Matrix Printer 

($ERCO) 



Line Printer 
($ERE0) 



Diskette 
($ERDO) 



4 



» 



Main Storage 
Processor 
($ER02) 



Control Processor 
($ER01) 



» 



BSC 
($ER80) 



End-of-Job 
($EOJ) 
-Control Storage- 



Figure 7-6. ERAP Utility Control Flow ($ERAP) 
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Chapter 8. Overlay Linkage Editor 



I ntroduction 

The overlay linkage editor enables the user to manually 
determine overlays for programs. An automatic determina- 
tion of overlays is also provided. 

The overlay linkage editor can be entered two ways: 
directly from a language processor (compiler), or as a user- 
called program. The functions and method of operation 
is different depending on whether the entry is compiler or 
user entry. 



COMPILER ENTRY 

When entered directly from a compiler, the overlay link- 
age editor can perform either or both of the following 
functions: 

• Catalog an object module as a subroutine member in 
the library on disk. 



Each object mo'dule consists of external symbol list (ESL) 
fields (packed five to a 64- byte, S-type record) and text 
records. An END record follows the object modules. A /* 
record must be the last record in the compiler output. 

Options Record: The options record tells the overlay 
linkage editor what functions to perform. The options 
record must be the first record in $WORK. Figure 8-1 
shows the format of the options record. 

Object module: The object module consists of ESL fields 
packed into S-type records, text records, and an END 
record. Each 64- byte, S-type record can contain up to 
five 12-byte ESL fields. The S-type record must be 
X'OOOO' after the ESL fields. 

Object modules are described in the System/34 Overlay 
Linkage Editor Reference Manual, SC21 -7707. 



OUTPUT FROM COMPILER ENTRY 



• Link object modules into an object program and catalog 
the program as a load member in the library on disk. 



INPUT FOR COMPILER ENTRY 

Input to the overlay linkage editor is in the $WORK file on 
disk. Each record in $WORK is 64 bytes long (Figure 8-1 ). 
The first record must be the options record; object modules 
follow the options record. 



Output from the overlay linkage editor is specified by the 
options record in $WORK. The object module in $WORK 
can be cataloged into the library as a subroutine member. 
If link-editing is specified, a load module is built from the 
input object module. The load module is then cataloged 
into the library as a load member. 

A storage map and cross-reference list is printed unless the 
options record specifies otherwise (Figure 8-25). 
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12 6 7 



12 



14 15 16 17 



24 25 32 33 



40 41 



64 




Reserved 



Flag 
Byte 



Link 
Address 



Subroutine 
Member 
Library Name 



User 

Library 

Name 



Load 
Member 
Library Name 



Reserved 



5 , 

s 



Text Records 



END Record 



/* Record 



3 14 15 26 27 38 39 50 51 62 63 64 



Length-1 



ESL 

Field 



ESL 
Field 



ESL 
Field 



ESL 
Field 



ESL 
Field 



X'0000' 



\ 



/ 








N. 


'Mill 
NAME 


X'OO' 


Hex' 
Start 
Address 


Hex 
Length 


Cat 



Module Name 



10 11 



12 



NAME 


X'OV 


Assm 
Address 


0-0 



Entry Point 



8 9 



10 12 



NAME 


X'02' 


Subtype 


X'OO's 



External Reference 



6 7 



Subtype 

X'OO' 

X'03' 

X'06' 

X'80' 

X'83' 



9 12 



Meaning 

External Reference to Module Name 

Weak External Reference to Module Name 

Conditional External Reference to Module Name 

External Reference to Entry Point 

Weak External Reference to Entry Point 



Common Area 



b b 


X'02' 


Subtype 


Length 


X'OO' 



6 7 8 9 11 12 



Subtype Meaning 

X'04' Global Common 

X'05' Local Common 



Length-1 



Assm Addr 



Text 



RLD 



4 5 



64 



Start Addr 



Not Used 



64 



/ 



Not Used 



1 2 3 



64 



Figure 8-1. Input For Compiler Entry 
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Compiler Entry 



$WORK 

Object 

Modules 



^\ 



Catalog Object 
Modules 



Library 

Subroutine 

Members 




Link Object Modules and 
Subroutine Members Into 
Load Module 



Catalog Load Module 




I 



End 



of Job J 



Figure 8-2. Overview of Overlay Linkage Editor Compiler Entry 



G^ 



Library 

Subroutine 

Members 



$SOURCE 

Load 

Module 



O 



Library 

Load 

Member 
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1 


2 6 7 


9 


10 




11 


12 





OTPNS 


Attributes 


Main 

Storage 

Size 


Object 
Module 


Load V 
Module / 


13 14 15 16 17 24 25 32 


r=r 


Flag 
Byte 


Link 
Address 


Subroutine 
Member 
Library Name 


User I 
Library ) 
Name ( 



33 



40 41 64 



Load 
l Member 
Library Name 



Reserved 



Main storage size: This is the amount of main storage (in 
1/4K increments) needed for object program execution. 
Example: X'12'= 18 (X'12') X 256 (1/4) = 4608 bytes 

Object module: This byte specifies the disposition of 
the object module in $WORK. 
Bit Reserved 

1 Reserved 

2 Reserved 

3 Reserved 

4 Reserved 

5 Catalog as subroutine member (RETAIN — R) 
in library 

6 Catalog as subroutine member (permanent 
entry) in library 

7 Reserved 

If bits — 7 are all zero, there is no object module 



Attributes: This 3 byte field describes the linked object 
program built by the overlay linkage editor. 



Byte 7 
Bit 
1 

2 
3 
4 
5 
6 



On - SSP module; Off - not SSP module 

Privileged module (O-only), proc with data 

(P-only) 

Not inquirable mode 

SFGR format load member 

Source required 

Not base SSP module 

PTF applied (cannot be assigned through overlay 

linkage editor) 

Module has overlays 



Load module: This byte specifies the disposition of the 
linked object program and the type of printed output 
from the overlay linkage editor. 
Bit Reserved 

1 Reserved 

2 Reserved 

3 Reserved 

4 Reserved 

5 Do not print storage map 

6 Do not print cross-reference list 

7 Catalog program into object library 

If bits — 7 are all zero, there is no linked output. If 
neither object nor load module is specified, load is 
cataloged. 



Byte 8 

Bit Dedicated mode 

1 NEP module 

2 Module has OX RF format index table 

3 Load module only from system console 

4 Cannot load program with a LOAD statement 

5 Program common 

6 Program with utility control statements 

7 Module has OXRF where-to-go table 

Byte 9 

Bit $WORK2 file required 

1 Do not swap this task 

2 High level of dedication 

3 Reserved 

4 Reserved 

5 Reserved 

6 Reserved 

7 Reserved 

Figure 8-3 (Part 1 of 3). Options Record 



Flag Byte: This byte passes general information to the 
overlay linkage editor. 
Bit Reserved 

1 Reserved 

2 Reserved 

3 Generate RLDs 

4 Print messages 

5 Reserved 

6 Catalog as a load member (RETAIN — R) in 
library 

7 Link edit address in byte 1 5 and 1 6 

Link Address: These 2 bytes specify a link-edit address. 
If bit 7 of the flag byte is not on, the overlay linkage 
editor links the load module to address X'0000'. 

Figure 8-3 (Part 2 of 3). Options Record 
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Subroutine Member Library Name: If an object module 
is requested (see bits 5 and 6 of the object module field), 
it is cataloged as a subroutine member in this library. If 
this field is blank, the default is CIBOTLB (compiler 
information block output library — from the COMPILE 
OUTLIB OCL statement). 

User Library Name: If a load module is requested (see 
Load module and Flag Byte fields), the user subroutine 
members used to create the load module are found in 
this library. A subroutine name beginning with a # 
causes the overlay linkage editor to search #LIBRARY . 
If the field is blank, the default is CIBOTLB (compiler 
information block output library — from the COMPILE 
OUTLIB OCL statement). 

Load Member Library Name: If a load member is 
requested (see Load module and Flag Byte fields), it is 
cataloged as a load member in this library. If this field 
is blank, the default is CIBOTLB (compiler information 
block output library - from the COMPILE OUTLIB 
OCL statement). 

Figure 8-3 (Part 3 of 3). Options Record 



USER ENTRY 

The overlay linkage editor can be loaded by using a LOAD 
#OLINK OCL statement. The user must supply control 
statements. 



INPUT FOR USER ENTRY 

Input for the user entry is described in the Overlay Linkage 
Editor Reference Manual. 



OUTPUT FROM USER ENTRY 

Output of the overlay linkage editor for user entry is an 
object program cataloged as a load member in the library. 
A storage map and cross-reference list are printed depend- 
ing on the MAP parameter of the OPTIONS statement. 



OVERLAY LINKAGE EDITOR PHASES AND 
ROUTINES 

The overlay linkage editor consists of the following phases 
and routines: 

Compiler entry phase (#OLYNX) 

User entry phase 1 (#OLINK) 

User entry phase 2 (#OLI1 ) 

User entry phase 3 (#OLI2) 

User entry phase 4 (#OLI3) 

Autolink segment list build (#OLAF) 

Cross-reference segment list build (#OLAH) 

Sort autolink segment list (#OLAJ) 

Overlay design (#OLAP) 

Overlay segment list build (#OLAR) 

Storage map phase (#OLAT) 

Relocate, resolve EXTRNs, and build load module 
phase (#OLBE) 

Library control phase (#OLBO) 

Specification module for the syntax checker (#OLISP) 

Error message print phase (#OLMSG) 

Error routine (#OLER) 

Minimum Storage Requirements 

The overlay linkage editor requires 14K of main storage for 
execution. 
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Keyboard 



Procedure 
Member 



Library 

Subroutine 

Members 



User Entry 



£> 






5» 



I 



Read OCL Statements, 
Control Statements, and 
Subroutine Member(s) 



^ 



I 



V 



Link Subroutine Members 
Into Load Module 



/*- 



I 



Catalog Load 
Module 



V 



f End of Job J 



Figure 8-4. Overview of Overlay Linkage Editor User Entry 



t> 



O 



$WORK 

Subroutine 

Members 

$SOURCE 
Preauto Link 
Segment List 



O 



$SOURCE 

Load 

Modules 



Library 

Load 

Member 
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Method of Operation 

The overlay linkage editor can be entered in two ways: 

• Diagram 8.1 shows an overview of the compiler entry. 

• Diagram 8.2 shows an overview of the user entry. 

Diagrams 8.3 through 8.1 7 show the functions of the over- 
lay linkage editor. 
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From: Compiler 



P 



INPUT 



Main Storage 



Transient Area 



User Area: 

(see Figure 8-5) 



Disk: 

• $WORK- 
object modules 

• Library — 
subroutine 
modules 




PROCESS 



> 



Catalog object modules as subroutine 
members 

Link object modules and subroutine 
members into load modules 

Catalog load modules as load members 



> 



=1 



OUTPUT 



Disk: 

• $SOURCE- 
load modules 
and segment 
lists 

• Library — 
subroutine and 
load members 

• $WORK- 
object modules 



To: Control Storage End-of-Job 
Transient ($EOJ) 



Diagram 8.1. Overview of Overlay Linkage Editor Compiler Entry 



From: User Entry 



ra INPUT 



Main Storage 



Transient Area 



User Area: 

(see Figure 8-6) 




PROCESS 



O 



Read control statements 

Link object modules and subroutine 
members into load modules 

Catalog load modules as load members 



Control statements 

Disk: 

• Control state- 
ments in 
procedure 
library 

© Library — 
subroutine 
members 



r 



OUTPUT 



> 



Disk: 

© $WORK- 

object modules 
• SSOURCE- 

segment lists 

and load modules 
© Library — 

load members 




To: Control Storage End-of-Job 
Transient ($EOJ) 



Diagram 8.2. Overview of Overlay Linkage Editor User Entry 
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From: Compiler 



■ INPUT 



Main Storage 



Transient Area 



User Area: 
#OLYNX 




PROCESS 



W 



S> 



$WORK- 
OPTNS data and 
object modules 



Get $WORK and $SOURCE 
file information 

Initialize LOMMON 

Move data from $WORK to LOMMON 

Store next $WORK sector 

Exit dependent upon request 



£> 




OUTPUT ee= 



Storage: 

LOMMON 



y < ii mm.'M<KvnmmtuK!<Hrifj:. J a ■■ 17 



To: Library Control Phase (#OLBO) or 
Autolink Segment List Build (#OLAF) 



DESCRIPTION 



MODULE/ 
ROUTINE 



Get $WORK and $SOURCE file information from compiler information block. 

Initialize 800-byte work area used by OLE routines (LOMMON). 

Read OPTNS and name ESL records. 

Put records in LOMMON. 

Put relative number of next available $WORK sector in LOMMON. 

If object module to be cataloged as subroutine member, go to library control phase (#OLBO). 

If not, go to autolink segment list build (#OLAF). 

Issue error messages as needed. 



#OLYNX 



#OLER 



Diagram 8.3. Compiler Entry Phase (#OLYNX) 
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INPUT 



From: - Compiler Entry Phase (#OLYNX) 

- User Entry Phase (#OLINK) 

- Library Control Phase (#OLBO) 
PROCESS ■ 



Main Storage 



Transient Area 



User Area: 
#OLAF 







> 



Disk: 

• $SOURCE- 
preautolink 
segment list 

O $WORK- 
object modules 

• Library — 
subroutine 
members 

Storage: 

• LOMMON 




Identify additional modules 

Find subroutine members referenced by 
EXTRNs 

Build autolink segment list 

Write text to disk 

Compress autolink segment list 



m OUTPUT 



O 




Disk: 

• $SOURCE- 
autolink segment 
list 

• $WORK- 
object modules 

Storage: 

• LOMMON 



To: Cross Reference Segment 
List Build (#OLAH) 



DESCRIPTION 



MODULE/ 
ROUTINE 



U Read external segment list for each object module in $WORK to determine if any additional EXTRNs required. 
Hi Find additional modules (subroutine members) referenced by EXTRNs. 

Put subroutine members in $WORK on disk. 
El Scan modules for EXTRNs. 

Assign EXTRN numbers to segments found (duplicate segments are given same number). 

Place all EXTRN segment elements in autolink segment list. 
Q Write object module text records back to $WORK as they are encountered. 

Place an E in first byte of last text record of each module. 
Q Delete all duplicate EXTRN numbers. 

Delete all but one COMMON entry from autolink segment list. 

Issue error messages as needed: 

• If message to be printed, use (#OLMSG). 

• If message to be displayed, use (#OLER). 



#OLAF 



$MALFN 



#OLAF 



#OLMSG 



#OLER 



Diagram 8.4. Autolink Segment List Build (#OLAF) 
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From: Autolink Segment List Build (#OLAF) 
INPUT n ■« iwum I m PROCESS 




Main Storage 



Transient Area 



User Area: 
#OLAH 



> 




Read records from $SOURCE 
Build cross-reference segment list 



Disk: 

© SSOURCE- 
autolink 
segment list 
and preautolink 
segment list 

Storage: 

© LOMMON 



OUTPUT 



Disk: 

• $SOURCE- 
cross segment 
list and 

autolink segment 
list 

Storage: 

• LOMMON 




To: Sort Autolink Segment List 
(#OLAJ) 



DESCRIPTION 



MODULE/ 
ROUTINE 



Read records from autolink segment list in $SOURCE. 

Build cross-reference segment list containing module name, followed by an entry point, followed by modules 
referencing entry point. 

Scan autolink segment list for modules with EXTRNs. 

Add EXTRNs to cross-reference segment list after either module name or entry point. 

Issue error messages as needed: 

• If message is to be displayed, use #OLER. 

• If message is to be printed, use #OLMSG. 



#OLAH 



#OLER 



#OLMSG 



Diagram 8.5. Cross-Reference Segment List Build (#OLAH) 
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From: Cross-Reference Segment List Build 
(#OLAH) 
INPUT BBMamaaxmamm ■ pi PROCESS 



Main Storage 



Transient Area 



User Area: 
#OLAJ 




^> 



Disk: 

© $SOURCE- 
autolink 
segment list 



Sort autolink segment list 




> 




OUTPUT 



Disk: 

• $SOURCE- 
sorted segment 
list 

Storage: 

• LOMMON 



To: Overlay Design (#OLAP) 



DESCRIPTION 



MODULE/ 
ROUTINE 



Group autolink segment list elements into sublists by: 

• Common area (uses only largest common area on autolink segment list). 

• Root mainline. 

• Zero priority elements. 

• Elements used by zero priority elements. 

• Category. 

© User overlay. 

Issue error messages as needed. 



#OLAJ 



#OLER 



Diagram 8.6. Sort Autolink Segment List (#OLAJ) 
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INPUT 



From: Sort Autolink Segment List (#OLAJ) 

PROCESS ■ 



Main Storage 



Transient Area 



User Area: 
#OLAP 



Disk: 

• $SOURCE- 
sorted segment 
list 

Storage: 

• LOMMON 




r 



> 



Calculate storage requirements 
Produce overlays if required 



£> 




OUTPUT 



Disk: 

• $SOURCE- 
sorted segment 
list 

Storage: 

• LOMMON 



To: Overlay Segment List Build 
(#OLAR) 



DESCRIPTION 



MODULE/ 
ROUTINE 



Accumulate total storage size used by all segments in sorted segment list. 

Compare accumulated storage size to total usable storage size available to determine if overlay required. 

Determine overlay structure dependent on storage size available. 

Identify duplicate or unused elements that can be eliminated based on overlay structure. 

Issue error messages as needed. 



#OLAP 



#OLER 



Diagram 8.7. Overlay Design (#OLAP) 
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From: 



Main Storage 






Transient Area 


User Area: 
#OLAR 




Disk: 

• $SOURCE 

— Cross- 
reference 
segment 
list 

- Sorted 
segment 
list 

Storage: 

• LOMMON 



Overlay Design (#OLAJ) 

■ PROCESS 




> 



Build overlay segment list 
Assign addresses 
Build text 



> 



OUTPUT 



Disk: 

© $SOURCE 

— Sorted 
segment list 

— Overlay 
segment list 

• $WORK 

— Test records 

Storage: 

e LOMMON 



EB3SZSBM 



y 




To: Storage Map Phase (#OLAT) 



DESCRIPTION 



MODULE/ 
ROUTINE 



Read data into main storage from sorted segment list and cross-reference segment list. 

Reformat data to build overlay segment list. 

Assign addresses to each module and EXTRN entry in overlay segment list. 

Build object text for: 

• Overlay fetch routine. 

• Overlay fetch table. 

• Overlay transfer vectors. 

Issue error messages as needed. 



#OLAR 



#OLER 



Diagram 8.8. Overlay Segment List Build (#OLAR) 
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INPUT 



From: Overlay Segment List Build (#OLAR) 
m PROCESS ■ 



Main Storage 



Transient Area 



User Area: 
#OLAT 



Disk: 

• $SOURCE: 

— Cross- 
reference 
segment list 

— Overlay 
segment list 

Storage: 

O LOMMON 




> 



Format output 

Print Headings 

Print map and cross-reference 

Print messages 



OUTPUT 



Disk: 

O $SOURCE: 

— Cross- 
reference 
segment list 

— Overlay 
segment list 

Printer: 

• Storage map 

• Cross-reference 
list 

• Messages 



c-rne— 1— 1. . . '11 

=1 



To: Relocate, Resolve Externs, 
and Build Load Modules Phase 
(#OLBE) 



DESCRIPTION 



MODULE/ 
ROUTINE 



Format output according to option selected — output contains: 
© Storage map. 

• Cross-reference list. 

• Messages. 

Output heading to printer. 

Read overlay segment list. 

Print entry for each common area and module including cross-reference and entry point. 

Print informational messages and error messages (if any) according to option selected. 

Issue error messages as needed. 



#OLAT 



#OLER 



Diagram 8.9. Storage Map Phase (#OLAT) 
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INPUT 



From: Storage Map Phase (#OLAT) 

n PROCESS 



Main Storage 



Transient Area 



User Area: 
#OLBE 



Disk: 

• $SOURCE: 

— Overlay 
segment list 

• $WORK 

- Sorted 
object text 

Storage: 

• LOMMON 




> 



IB Read overlay segment list 

Q Build ESL table 

Q Relocate object modules 

Q Write load module to $SOURCE 

3 Store overlay disk addresses 

ft] Store fetch table address 



:> 




OUTPUT 



Disk: 

• SSOURCE: 

— Load module 

Storage: 

• LOMMON 



To: Library Control Phase 
(#OLBO) 



DESCRIPTION 



MODULE/ 
ROUTINE 



Read data into main storage from overlay segment list. 

Build ESL table entry for each external reference in overlay segment list. 

Read object module for each overlay. 

Place RLDs in buffer to be written to load module. 

Adjust and place text records addresses in buffer to be written to load module. 

Place RLDs and text record addresses in load module. 

Write load module to $SOURCE. 

Put relative disk address of each overlay into overlay fetch table in root phase. 

Put overlay fetch table address following last RLD in root phase. 

Issue error messages as needed: 

• If message is to be displayed, use #OLER. 

• If message is to be printed, use #OLMSG. 



#OLBE 



#OLER 



#OLMSG 



Diagram 8.10. Relocate, Resolve EXTRNs, and Build Load Module Phase (#OLBE) 
8-16 



Licensed Material— Property of IBM 



From: Compiler Entry Phase (#OLYNX) or 

Relocate, Resolve EXTRNs,and Build Load Modules Phase (#OLBE) 



INPUT 



Main Storage 



Transient Area 



User Area: 
#OLBO 



Disk: 

• $WORK 

- Object 
modules 

• $SOURCE 

— Load module 

Storage: 

• LOMMON 




PROCESS 



OUTPUT 



"«"■"'—'— w 



> 



Determine output 

Catalog modules 

Pass control to appropriate module 



^ 



Disk: 

O Library: 

— Subroutine 
members 

— Load 
members 

Storage: 

© LOMMON 
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To: End-of-Job Transient ($EOJ) or 

Autolink Segment List Build (#OLAF) 



DESCRIPTION 



MODULE/ 
ROUTINE 



Check LOMMON to determine if object module or load module to be cataloged in system library. 

Create entry for module in library directory containing: 

• Module type. 

• Name. 

• Relative sector address. 

• Other library directory information. 

Branch to autolink segment list build (#OLAF) if user program requests that object module cataloged be 
linked into load module. 

Otherwise pass control to end-of-job transient ($EOJ). 

Issue error messages as needed; if message is to be displayed, use #OLER. 



#OLBO 



$MAPGS 



#OLBO 



#OLER 



Diagram 8.11. Library Control Phase (#OLBO) 
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From: Caller 



■INPUT 



Main Storage 



Transient Area 



User Area: 
#OLER 



ARR: 

• Error Code 



1 r" 



PROCESS 



t> 



Retrieve error code 

Build parameter list 

Display messages 

Pass control to appropriate module 



> 




OUTPUT 



Display screen 
message 



am 



To: Caller -or- 

End-of-Job Transient ($EOJ) 



DESCRIPTION 



MODULE/ 
ROUTINE 



Address recall register (ARR) contains address of error code used as displacement into error table. 

Build and pass parameter list to SYSLOG. 

Display messages on SYSLOG device. 

If option 3 response to error, #CLSG passes control to end-of-job transient ($EOJ). 

If option 0, 1 , or 2 response to error, control returns to caller. 



#PLER 



#CLSG 



#OLER 



Diagram 8.12. Error Routine (#OLER) 
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From: Autolink Segment List Build (#OLAF) 
INPUT h^^^hhhh | m PROCESS ■ 



Main Storage 



Transient Area 



User Area: 
#OLMSG 



Disk: 

• SSOURCE 
— Segment 

lists 

Storage: 

• LOMMON 

• LOWORK 




:> 



Print messages 

Pass control to appropriate module 



OUTPUT 



Printer: 
O Message 



Hoi JL fWIHIWB 



To: — Cross-reference Segment 
List Build (#OLAH) 

— Sort Autolink Segment List 
(#OLAJ) 

- Error Routine (#OLER) 



DESCRIPTION 



MODULE/ 
ROUTINE 



Print message on system printer. 

Exit to error routine (#OLER) for terminal errors. 

Exit to sort autolink segment list (#OLAJ) if message 3109 or 31 11 issued. 

Otherwise exit to cross-reference segment list build (#OLAH). 



#DPDM 



#OLMSG 



Diagram 8.13. Error Message Print Phase (#OLMSG) 
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From: Caller 



INPUT 



Main Storage 



Transient Area 



User Area: 
#OLINK 



§ r R 



PROCESS 



Disk or Keyboard: 
© Control 
statements 



jL.MWMWBMWM 



Allocate and open $WORK and $SOURCE 

Initialize LOMMON 

Load syntax checker and error routine 

Read control statements 

Check for syntax errors 



> 




OUTPUT 



Storage: 

• LOMMON 

• Syntax checker 
communication 
table 



To: User Entry Phase 4 
(#OLI3) 



DESCRIPTION 



MODULE/ 
ROUTINE 



H] Allocate $WORK and $SOURCE files. 

Open $WORK and $SOURCE files. 
|a| Initialize 800-byte work area used by overlay linkage editor routines (LOMMON). 
HJD Load syntax checker (#USYX) to compare control statement parameters with #OLISP module. 

Load error routine (#OLER) to display error messages (if any). 

$31 Read control statements: 

© //PHASE 

© //OPTIONS 

$> © //MODULE 

© //GROUP 

© //CATEGORY 

O //EQUATE 

© // END 

HSH Syntax check control statement parameters. 

Issue error messages as needed; if message is to be displayed, use #OLER. 



#OLINK 



#OLM 



#OLI2 



#OLI3 



#USYX 



#OLER 



Diagram 8.14. User Entry Phase 1 (#OLINK) 
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INPUT 



From: User Entry Phase 1 (#OLINK) 
PROCESS 



Main Storage 



Transient Area 



User Area: 
#OLI1 



Storage: 

• Syntax checker 

communication 

table: 

- OPTIONS 

- PHASE 




IP OUTPUT mmnsrn 



Process valid control statements 

OPTIONS 

PHASE 



>> 



«]■!». IUI .'UP .HIJMH IMUIHIIUIW 




Storage: 

O LOMMON 



To: User Entry Phase 1 
(#OLINK) 



smszss: 



DESCRIPTION 



MODULE/ 
ROUTINE 



Retrieve OPTIONS and PHASE data from syntax checker communication table. 

Put data in LOMMON. 

Issue error messages as needed; if message is to be displayed, use #OLER. 



#OLI1 



#OLER 



Diagram 8.15. User Entry Phase 2 (#OLI1) 
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■INPUT 



From: User Entry Phase 1 (#OLINK) 
m PROCESS 



Main Storage 



Transient Area 



User Area: 
#OLI2 



Storage: 

• Syntax checker 
communication 
table: 

- MODULE 

Disk: 

• Library 

— Subroutine 
member(s) 




f> 



Process valid control statements 
MODULE 

Find and copy modules to $WORK 



> 




OUTPUT 



Disk: 

• $WORK 

— Subroutine 
member(s) 



To: User Entry Phase 1 
(#OLINK) 



DESCRIPTION 



MODULE/ 
ROUTINE 



Retrieve names of modules to be included in load module from syntax checker communication table. 
Find modules to be included and put modules in $WORK on disk. 

Issue error messages as needed: 

* If message is to be displayed, use #OLER. 

• If message is to be printed, use #OLMSG. 



#OLI2 



$MALFN 



#OLER 



#OLMSG 



Diagram 8.16. User Entry Phase 3 (#OLI2) 
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INPUT 



From: User Entry Phase 1 (#OLINK) 
m PROCESS 



Main Storage 



Transient Area 



User Area: 
#OLI3 



Storage: 

• Syntax checker 

communication 

table: 

- CATEGORY 

- GROUP 

- EQUATE 




i> 



Process valid control statements 

CATEGORY 

GROUP 

EQUATE 

Process valid END statement 



> 




OUTPUT 



Disk: 

• SSOURCE 
— Segment 

lists 

• $WORK 

'E' (end) record 



To: Autolink Segment List Build 
(#OLAF) 



DESCRIPTION 



MODULE/ 
ROUTINE 



Process valid CATEGORY, GROUP, or EQUATE control statement: 

• Retrieve control statement data from syntax checker communication table. 

• Build preautolink segment list. 

Retrieve END statement from syntax checker communication table. 

Perform final write to $WORK and $SOURCE. 

Pass control to autolink segment list build (#OLAF). 

Issue error messages as needed; if message is to be displayed, use #OLER. 



#OLI3 



#OLER 



Diagram 8.17. User Entry Phase 4 (#OLI3) 
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Program Organization 

The overlay linkage editor is divided into self-overlaying 
routines. The sequence in which routines are loaded and 
which routines are used depends on whether the compiler 
entry or the user entry is used and which functions are 
required. Figures 8-5 and 8-6 are the storage maps for the 
compiler entry and user entry overlay linkage editor 
modules. 

Figures 8-7and 8-8 show the overlay linkage editor compiler 
entry and user entry control flow. 
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LOMMON 
Common Area 



Compiler Access 
Method 



#OLYNX 






I 256 Bytes 


#OLAF 




""""* --* 






#OLAR 


#OLAH 




#OLAJ 




#OLAP 




#OLAT 




#OLBE 




#OLMSG 









Figure 8-5. Compiler Entry Storage Map 
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SSP 



LOMMON 
Common Area 



Compiler 
Access Method 



#OLINK 



#OLISP 



I/O Area 



#OLINK 
Work Area 



#OLINK Load Module 




#OLI1 
#OLI2 
#OLI3 
#USYX 



-^;#OLAF — 
#OLAH-^. 
#OLAJ 
#OLAP 
#OLAT 
#OLBE 
#OLMSG 



#OLBO 



#OLAR 



#OLER 



Figure 8-6. User Entry Storage Map 
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Compiler 
Entry 

_L 

Compiler 

Entry 

Phase 



(iCOLYNX) 



YJ 



Autolink 
Segment 
List Build 

WOLAF) 



I 



I 



Cross 
Reference 
Segment 
List Build 
WOLAH) 



I 



Sort 

Autolink 

Segment 

List 

(ii'OLAJ) 



Overlay 
Design 



WOLAP) 



Overlay 
Segment 
List Build 

(#OLAR) 



I 



Storage 
Map Phase 



(#OLAT) 



I 



Relocate, Resolve 
Externs, and 
Build Load 
Module Phase 
(#OLBE) 



If Request to Catalog Module 
as a Subroutine Member 



If Link Requested 



If Error Message to Print 



1 



Library 
Control 
Phase 

WOLBO) 



I 



I 



End-of-Job 
($EOJ) 
-Control Storage- 



Error 
Message 
Print 
Phase 
(JOLMSG) 



From Caller 



1 



Error 
Routine. 



(JOLER) 



T 



To Caller 



Figure 8-7. Overlay Linkage Editor Compiler Entry Control Flow 
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I 



User 
Entry 

1 




// PHASE or 
// OPTIONS 






User 
Entry 
Phase 1 

(#OLINK) 


User 
Entry 
Phase 2 

(ifOLID 




//MODULE 






User 
Entry 
Phase 3 

(#OLI2) 




// GROUP, // CATEGORY, 
// EQUATE, or // END 






User 
Entry 
Phase 4 

(#OLI3) 






| 


# 




If Error Message to Print 






Autolink 
Segment 
List Build 

<#OLAF) 


Error 
Message 
Print 
Phase 
(IOLMSG) 




G> 


— ► 


1 




Cross 
Reference 
Segment 
List Build 
(#OLAH) 


Storage 

Map 

Phase 

WOLAT) 


1 


1 


Sort 

Autolink 

Segment 

List 

(#OLAJ) 


Relocate, Resolve 
Externs, and 
Build Load 
Module Phase 
(iCOLBE) 


\ 


1 


Overlay 
Design 

(iCOLAP) 


Library 
Control 
Phase 

(#OLBO) 


i 


\ 


Overlay 
Segment 
List Build 

(#OLAR) 


End-of-Job 
($EOJ) 
-Control Storage- 



Figure 8-8. Overlay Linkage Editor User Entry Control Flow 



From 
Caller 

1 



Error 
Routine 



WOLER) 



T 

To 

Caller 
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Data Areas 



SEGMENT LIST ENTRIES 



This section describes the data areas that pass information 
between routines of the overlay linkage editor. 



OVERLAY LINKAGE EDITOR COMMON (LOMMON) 

The overlay linkage editor common area (Figure 8-9) 
passes control information between the various routines. 
Most of LOMMON is initially set to zero by user entry 
phase 1 (#OLINK) or compiler entry phase (#OLYNX). 



VERB LIST (OVERBS) 

OVERBS is a list of constants passed to the syntax 
checker (#USYX) each time the syntax checker is called 
by #OLINK. The third and fourth bytes of the syntax 
checker parameter list contain the address of the verb 
list. Figure 8-10 shows the format and contents of the 
verb list. 



The various routines of the overlay linkage editor build 
a series of segment lists. These segment lists are built in 
the $SOURCE work file (Figure 8-11). 

Each entry is 16 bytes long. The format of entries varies 
between and within segment lists, depending on the type of 
entry. (See Figures 8-1 7 through 8-22 for segment list for- 
mats.) All data fields in the segment list entries are not 
used for all types of entries, the column heading Applies to 
Segment Type in each segment list indicates which types of 
entries contain the data. Figure 8-1 7 contains a list of all 
the segment types. 
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Displacement of 




Length in 




Leftmost Byte 




Bytes in 




in Hexadecimal 


Label 


Decimal 


Description 





LORTYP 


1 


Object mod 



Routines that 
Change Data 
(#OLxxx) 

YNX, BO 



X'80' : 

X'40' 

X'20' 

X'10' 

X'08' 

X'04' 



X'02' = 



X'01' = 



Reserved 

Reserved 

Reserved 

Reserved 

Reserved 

Catalog the object module as a 

subroutine member with a 

RETAIN-R (replace) in the 

library 

Catalog the object module as a 

subroutine member with a 

RETAIN-P (permanent) in 

the library 

Reserved 



LOOTYP 



LOSWT1 



Figure 8-9 (Part 1 of 5). Common Area (LOMMON) 



If this byte is X'OO', there is no object 
module 

Load module information 

X'80' = Reserved 

X'40'= Reserved 

X'20' = Reserved 

X'10'= Reserved 

X'08' = Reserved 

X'04' = No storage map option 

X'02' = No cross-reference list option 

X'01 ' = Catalog the load module as a load 
member in the library 

X'OO' = Do not catalog the load module 
(If neither an object or a load 
module is specified, a load mem- 
ber is cataloged) 

Overlay linkage editor switch 1 

X'80' = Segment list is in $SOURCE 
X'40'= User call 
X'20' = User specified overlays 
X'10' = Entry point to be resolved 
X'08' = Groups in segment list 
X'04' = Reserved 
X'02' = Print messages 
X'01'= Retain- R (replace) 



INK, YNX, 12, 
13, AT 



INK, YNX, AF, 
11,12,13 
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Displacement of 




Length in 




Routines that 


Leftmost Byte 




Bytes in 




Change Data 


in Hexadecimal 


Label 


Decimal 


Description 


(#OLxxx) 


3 


L0SWT2 


1 


Overlay linkage editor error switch 


AF,AH,AJ, AR 
AT, I1,YNX . 



X'80' = System category calls another 

category 
X'40' = DTF in last 1 K of storage 
X'20' = All elements in group are category 

1-7 
X'10' = No module for group element 
X'08' = Entry point not in common program 
X'04' = Entry on options not found 
X'02' = Storage size on options statement 
X'02' = Program will not fit 
X'01' = Terminal error 



4 


LOUSLB 


2 


User library format 1 address 


INK,YNX 


6 


LOSYLB 


2 


System library format 1 address 


INK,YNX 


8 


LORLIB 


2 


Subroutine member library format 1 address 


INK,YNX 


A 


LOOLIB 


2 


Load member library F1 address 


INK,YNX 


C 


LONOVL 


1 


Number of overlays 


AP 


D 


LOEND@ 


2 


End of storage address 


INK,YNX 


F 


LOCRSZ 


2 


Actual storage size for storage map execution 


AP, YNX, BO 


11 


LOOVNO 


2 


Low, high system overlay numbers 


AR 


13 


LOFTBL 


2 


Displacement of overlay fetch table 


AR 


15 


LOAUTO 


2 


Relative entry number of auto segment list 


13 


17 


LOXREF 


2 


Relative entry number of cross-reference 
segment list 


AF, BE 


19 


LOSORT 


2 


Relative entry number of sort segment list 


AH, BE 


1B 


LOOVER 


2 


Relative entry number of overlay segment list 


AJ, AP, BE 


1D 


LOLIMT 


2 


Relative entry number of last delimiter 


AR, BE 


1F 


LOWKCS 


2 


Relative sector number of the next sector in 
$WORK 


13, 12, INK, 
YNX,AF,AR 


21 


LOLCSB 


3 


Sector address of data start 


INK, YNX, BE 



Figure 8-9 (Part 2 of 5). Common Area (LOMMON) 
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Displacement of 




Leftmost Byte 




in Hexadecimal 


Label 


24 


LOLHDR 


25 


LOLNAM 


2B 


LOLLCS 


2D 


LOLTXS 




or 


2D 


LOLCAT 



Length in 
Bytes in 
Decimal 

1 



Description 

Library type; R (subroutine) or (load 
member) 

Module name 

Sector address of library entry 

Number of text sectors in load member 

Overlay category of subroutine member 

X'OO' = Root category 
X'OT through X'7E' = Overlay category 
value 



Routines that 
Change Data 
(#OLxxx) 

INK, YNX, BE 



IN1,YNX,I2,B0 

BO 

BE, BO 

YNX 



2E 


LOLLEA 


2 


Link edit addresses 


INK," 


YNX,AR,I1 


30 


LOLRLD 


1 


RLD displacement 


BE 




31 


LOLSCA 


2 


Start control address 


YNX, 


I2,AJ,AR 


33 


LOLCSZ 


1 


Main storage size in hexadecimal (in 1/4 K 


INK,YNX,I1,B0 








increments) 






34 


LOATB1 


1 


1st attribute byte 




I1,I2,AF, 












R/O 


BE, BO, 








X'80' 


= SSP module 




YNX, AJ 








X'40' 


= Privileged module — only 












X'40' 


= Do not log OCL - P only 












X'20' 


= Non-inquirable module 












X'10' 


= SFGR format load module — only 












X'10' 


= Procedure with data — P only 












X'08' 


= Source required 












X'04' 


= Non-base SSP module 












X'02' 


= PTF applied bit 












x'or 


= Module has overlays 






35 


LOATB2 


1 


2nd attribute byte 




11, 12, AF, 












R/O 


BE, BO, 








X'80' 


= Dedicated module 




YNX, AJ 



X'40' = Never-ending program module 
X'20' = Module has OXRF format index 

table 
X'10' = Module can only be loaded from 

system console 
X'08' = Cannot load program via // LOAD 
X'04' = Program common 
X'02' = Program with utility control 

statements 
X'01' = Module has OXRF WTG table 



Figure 8-9 (Part 3 of 5). Common Area (LOMMON) 
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Displacement of 




Length in 




Leftmost Byte 




Bytes in 




in Hexadecimal 


Label 


Decimal 


Description 


36 


L0ATB3 


1 


3rd attribut 



X'80' = $WORK2 file required 
X'40' = Do not swap this task 
X'20' = High level of dedication 
X'10'= Reserved 
X'08' = Reserved 
X'04' = Reserved 
X'02' = Reserved 
X'01'= Reserved 



37 


LOMRTX 


1 


MRTMAX 


38 


LOJCB@ 


2 


JCB address 


3A 


LOLLVL 


1 


Release level 


3B 


LOLTSC 


2 


Total sector 


3D 


LOWORK 


30 


Phase work a 



Note: The phase work area can be used 
by each phase. Information can be 
passed from one phase to the next in this 
area, but the phase work area is not to be 
used for passing information from one 
phase to phases that are two or three 
loads away. 



5C 


LOCZER 


2 


Constant of zero 


5E 


LOCONE 


1 


Constant of one 


5F 


LOCHFF 
or 


2 


Constant X'FFFF' 


5F 


LOCM1 


2 


Constant of minus one 


61 


LOSCAT 


1 


System category 


62 


LOERCD 


1 


Error code 


63 


LOENTR 


6 


Entry point name 


69 


LOERR 


1 


#OLER error code 


69 


LOAF 


5 


Load list for #OLAF 


6E 


LOAH 


5 


Load list for #OLAH 


73 


LOAJ 


5 


Load list for #OLAJ 


Figure 8-9 (Part 4 of 5). Common Area (LOMMON) 





Routines that 
Change Data 
(#OLxxx) 

IN1, IN2, AF, 
BE, BO, YNX, 
AJ 



YNX, 11, BO 
YNX, 11, AT 
IN1,INK,YNX 
YNX, BE 
any 



INK, YNX 

INK, YNX 

INK, YNX 

INK, YNX 

AH 

AT.AF 

INK, 11, AH, 
YNX 

YNX 

AF 

AF 
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Displacement of 




Leftmost Byte 




in Hexadecimal 


Label 


78 


LOAP 


7D 


LOAR 


82 


LOAT 


87 


LOBE 


8C 


LOBO 


91 


LOER 


96 


LOMS 


9C 


LOSWT3 


AD 


LOEND 


AE 


LOIOBS 


CE 


LOIOBW 


EE 


LOCAMS 


109 


LOCAMW 


124 


LODTFP 


14D 


CAM 


203 


LOPRCA 


288 


LOPIOA 



320 



LOPHSE 



Length in 
Bytes in 
Decimal 

6 

6 

6 

6 

6 

5 

5 

1 

17 
32 
32 
27 

27 

41 

182 

132 

152 

(variable) 



Figure 8-9 (Part 5 of 5). Common Area (LOMMON) 



I 


Routines that 




Change Data 


Description 


(#OLxxx) 


Load list for #0 LAP 


AF 


Load list for #0 LA R 


AF 


Load list for #OL AT 


AF 


Load list for #OLBE 


AF 


Load list for #OLBO 


AF 


Load list for #OLER 


INK,YNX 


Load list for #OLMSG 


AF 


Flag byte: X'80' = RLDs for load member 


INK,YNX, MSG, 




AT 



End of LOMMON 

IOBfor$SOURCE 

IOBfor$WORK 

$SOURCE CAM (compiler access method) 
control block 

$WORK CAM control block 

DTF for printer 

Start of CAM 

Printer logical record 

Printer physical area 

phase area 
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Displacement of 
Leftmost Byte 



1 

2 

3 

4 

5 

6 

7 
Figure 8-10. OVERBS Verb List 



Label 
OVERBS 



Length in 
Bytes 



Description 
PHASE verb ID 
OPTIONS verb ID 
MODULE verb ID 
GROUP verb ID 
CATEGORY verb ID 
EQUATE verb ID 
END verb ID 
X'FF' end of verb list 



$SOURCE 



Segment List Entry Types 

00 Module name 

01 Entry point 

02 EXTRN 

03 Weak EXTRN 

04 Global common 

05 Local common 

06 Conditional EXTRN 
OB EQUATE entry 

OC Transfer vector 

OD Reference a previous name 
or entry point 

OE GROUP entry 

OF CATEGORY entry 

FE Nulled entry 

FF End of segment list 



Figure 8-11. Segment Lists in$SOURCE and Segment List 
Entry Types 



Preautolink 
Segment List 
(Figure 8-1 2) 

Autolink 
Segment List 
(Figure 8-13) 

Cross-reference 
Segment List 
(Figure 8-14) 

Sort Segment 
List 
(Figure 8-15) 

Overlay 
Segment List 
(Figure 8-16) 
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Displacement of 


Applies to 


Leftmost Byte 


Segment 


in Hexadecimal 


Type 





0E,0F 





0E,0F,0B 


1 


OE 


1 


OE 


2 


OE 


2 


OE,OF 


3 


OE 


6 


0E,0F 



OE 



*See Figure 8-11 



Displacement within $SOURCE 
Figure 8-12. Preautolink Segment List 



Length 




in Bytes 


Description 


1 


Bits 0-3 = Reserved 


1 


Bits 4-7 = segment type 1 


1 


Group number 


1 


Category override number 


- 


Work area — original category 


4 


Reserved 


1 


Bit 7 = User area specified for module 



Reference number — pointer to module 
element in autolink segment list 1 

Reference number — pointer to lead 
element in last overlay 2 



8 


OE, 


OF 




2 


ESL sequence number 


A 


OE, 


OF, 


OB 


6 


Module name 


A 


OE 






2 


Reserved 


C 


OE 






2 


Module element pointt 
6 through 7) 


E 


OE 






2 


Reserved 



Routines that 
Change Data 
(#OLxxx) 

13 

13 

13 

13 

AH 

13 

13 

AF 

AJ 

AF 
13 
AF 
AJ 

AF 
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Displacement of 


Applies to 






Leftmost Byte 


Segment 


Length 




in Hexadecimal 


Type 


in Bytes 


Description 





- 


1 


This byte indicates the following 




00 




X'80' = Reserved 



01,02,03, 
04,05 

02,03 

00,01 

00,01,02, 
03 

00 

00 

02, 04, 05 



X'80' = Entry point or references an 
entry point 

X'40' = Resolved to module and/or entry 

X'40' = This module or entry point has an 
EXTRN referencing it 

X'20' = Work area must be OFF at phase 
end 

X'20' = Used — do not place in structure 

X'10' = Calls a user routine or requires a 
transfer vector 

X'10' = Delete this element when com- 
pressing list 



^ee Figure 8-11 

Figure 8-13 (Part 1 of 2). Autolink Segment List 



Routines that 
Change Data 
(#OLxxx) 



AF 
AF 

AF 
AF 

AF 

AJ 
AF 

AF 





00 




X'10' = Module already placed in root 


AJ 




All 




Bits 4-7 = Segment type 1 


AF 


1 


00,01,02, 
03 


1 


Category 


AF,AH 


2 


00 


2 


$WORK address of object code 


AF 


2 


01 


2 


Entry displacement from start of module 


AF 


2 


00 


1 


Number of entry points 


AH 


3 


00 


1 


Module information 






00 




X'80' = Module requires boundary 
alignment 


AH 




00 




X'40' = Module calls a user routine 


AH 




00 




X'20' = Module has I/O dependency 


AH 




00 




X'10'= Module already in an overlay 


AJ 




00 




X'10' = Substructure pointer already built 


AJ 
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Displacement of 


Applies to 






Leftmost Byte 


Segment 


Length 




in Hexadecimal 


Type 


in Bytes 


Description 


4 


00 


2 


Object code length 


6 


00,01,02, 


2 


Reference number 




03,04 




number in autolink 


8 


00,01,02, 
03, 04, 05 


2 


ESL number 


A 


00,01,02, 
03,04,05 


6 


ESL name 



00 



00 



E 00 

Figure 8-13 (Part 2 of 2). Autolink Segment List 



Reference number — pointer to equal 00 
type in cross-reference segment list 

Work area 

Reserved 



Routines that 
Change Data 
(#OLxxx) 

AF 

AF 

AF 

AF, INK 

AH 

AJ 
AH 



Displacement of Applies to 
Leftmost Byte Segment 



in Hexadecimal 


Type 





- 




00,01,0D 




00,01 




00,01,0D 




00,01,0D 




00,01,0D 


1 


00,01,0D 



Length 
in Bytes 

1 



1 

^ee Figure 8-11 
Figure 8-14 (Part 1 of 2). Cross- Reference Segment List 



Description 

This byte indicates the following 

X'80' = Reserved 

X'40' = Reserved 

X'20' = Reserved 

X'10'= Reserved 
Bits 4-7 = Segment type 1 
Category 



Routines that 
Change Data 
(#OLxxx) 



AH 
AH 
AH 
AH 
AH 
AH 
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Displacement of 
Leftmost Byte 
in Hexadecimal 



Applies to 

Segment 

Type 

00,01 



00 



Length 
in Bytes 



00 



0D 

00 
00 
00 
00 
00 

01 

00,01 
00,01 
6 00 2 

8 00, 01, 0D 2 

A 00, 01, 0D 6 

Figure 8-14 (Part 2 of 2). Cross-Reference Segment List 



Description 

Entry point displacement from start of 
module 

Work area = number of entry points on 
original category 

This byte indicates the following: 

X'80' = Module requires boundary 
alignment 

X'80' = Categories make this call a 
potential program failure 

X'40' = Module calls a user routine 

X'20' = Module has I/O dependency 

X'10' = Work area — OFF at end of phase 

X'08' = Work area - OFF at end of phase 

X'04' = No reference made to this 
module 

X'04' = Same name as module name 

X'02'= Duplicate name 

X'OT = Start control label 

Location of object text in $WORK 
(X'FFFF' = nontext) 

ESL number 

Module or entry point name 



Routines that 
Change Data 
(#OLxxx) 

AH 



AH 



AH 

AH 

AH 
AH 
AH 
AH 
AH 

AH 
AH 
AH 
AH 

AH 
AH 
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Displacement of 


Applies to 




Leftmost Byte 


Segment 


Length 


in Hexadecimal 


Type 


in Bytes 



00 

00 
00 
00 
00 

oc 



Description 

This byte indicates the following: 



Routines that 
Change Data 
(#OLxxx) 





OC 


Bits 0-3 = Set of modules already summed 


AP 




OC 


X'40' = Set of modules contains a boundary 
alignment module 


AP 




00, 02, 04, 


Bit 0-3 = Reserved 


AJ 




05, 0C 








00,02,04, 


Bits 4-7 = Segment type 1 


AJ 




05, OC 






1 


00, 02 


Category 


AJ 


1 


00, OC 


1 Overlay number 


AP 


2 


00 


1 Number of entry points this module 


AJ 


2 


OC 


Number of entry points this overlay 


AP 


3 


— 


This byte indicates the following: 





X'80'= Module requires boundary 
alignment 

X'40' = Module calls a user routine 

X'20' = Module has I/O dependency 

X'20' = Work area 

Bits 4-7 = Reserved 

Overlay area used by this set of modules 
at execution time 



AJ 

AJ 
AJ 
AP 
AJ 
AJ 



^ee Figure 8-11 

Figure 8-15 (Part 1 of 2). Sort Segment List 
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Displacement of 


Applies to 




Leftmost Byte 


Segment 


Length 


in Hexadecimal 


Type 


in Bytes 


4 


00, 04, 05 


2 


4 


OC 


2 

e 


6 


00 


2 


6 


02 


2 


8 


00, 02, 04, 05 


2 


A 


00 


2 



A 



OC 



00 



c 


02 


2 


c 


OC 


2 


E 


02, 04, 05, OC 


2 


E 


00 


2 



Figure 8-15 (Part 2 of 2). Sort Segment List 



Description 

Length of object area associated with this ESL AJ 
Length of object area for this overlay candidate AP 
Reference number — pointer to equal module AJ 

Pointer to module 
ESL number 



Routines that 
Change Data 
(#OLxxx) 



Pointer to module name element in cross- 
reference list 

Pointer to next set of modules in same 
overlay 

Chain to substructure referencing this 
module 

Chain to other substructure and module 

Chain to last previous transfer vector element 

Reserved 

Boundary alignment adjustment factor 



AJ 
AJ 
AJ 



AP 

AJ 

AJ 
AJ 
AJ 
AP 
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Displacement of 


Applies to 




Leftmost Byte 


Segment 


Length 


in Hexadecimal 


Type 


in Bytes 



02 





00, 02, 04, 05 




1 


00, 02, 04, 05 


1 


2 


00, 02, 04, 05 


2 


4 


00, 04, 05 


2 


4 


02 


2 


6 


00 


2 


6 


00 


2 


6 


02 


2 


8 


00, 02, 04, 05 


2 


A 


00 


2 



B 


02 


1 


C 


00 


2 


C 


02 


2 


E 


00, 02, 04, 05 


2 



^ee Figure 8-11 

Figure 8-16. Overlay Segment List 



Description 

This byte has the following meaning: 

X'80' = Work area = resolve to transfer 
vector 

Bits 4-7 = Segment type 1 

Overlay number 

Object time address for this ESL 

Object time length for this ESL 

Corresponding module type ESL number 

Address of module's first transfer vector 

$WORK location of object text 

3-byte RLD object time address for this ESL 

ESL number 

Pointer to equal 00 type in cross-reference 
segment list. X'FFFF' designates overlay 
fetch routine 

Relative entry point position 

Overlay size — first 00 type of overlay only 

Pointer to 00 type entry in sort list 

Reserved 



Routines that 
Change Data 
(#OLxxx) 



AR 

AR 
AR 
AR 
AR 
AR 
AR 
AT 
AR 
AR 
AR 

AR 
AR 
AR 
AR 
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OVERLAY FETCH ROUTINE 

The overlay fetch routine is added to the root segment of 
every program that has overlays. It is built by routine 
#OLAR. When an overlay segment is needed during pro- 
gram execution, the overlay fetch routine is called. It 
fetches overlay segments from access devices and places 
them in the overlay regions in main storage. Bits are set 
in the overlay fetch table telling which overlay region is 
used. The fetch table contains one 7-byte entry for each 
overlay in the program. Figure 8-17 shows the overlay 
fetch table entry format. 

The overlay fetch routine requires three parameters as input: 

1. Overlay number (1 byte) 

2. Entry address of the overlay (2 bytes) 

3. Return address from the overlay (2 bytes) 

A transfer vector is built for each overlay in an object pro- 
gram. Transfer vectors provide input parameters for the 
overlay fetch routine. Overlay Linkage Editor routine 
#OLAR builds transfer vectors. Figure 8-1 8 shows the 
format of transfer vectors. 

The overlay fetch routine checks to see if the requested 
overlay segment is already in main storage. If it is, the 
routine-branches to the entry address of the overlay; if 
not, the overlay fetch table entries are checked to see if 
they use the same main storage. If they do, the overlay 
is flagged as not being in main storage. 

After the overlay fetch routine checks all entries in the 
overlay fetch table, it sets the overlay- in-storage bit in the 
overlay fetch table entry for the requested overlay. The 
overlay fetch routine then loads the overlay segment and 
branches to its entry address. 



Relative 


Number of 


Main 


RLD 


Flag 


Sector 


Sectors of 


Storage 




Byte 


Address 


Text 


Load 
Address 







Bytes 
0-1 



3-4 



4 5 



Contents 

Relative sector address of the overlay seg- 
ment. This is the number of sectors past 
the SSS@ of the root segment of the over- 
lay program as given in the object library 
directory entry for the program. 

Number of sectors of text in the load 
module. (Does not include the number 
of related RLD sectors.) 

Relative main storage load address of 
where the overlay segment is to be placed 
in main storage by the system loader. 
(Relative to the end of the supervisor 
address.) 

RLD start displacement 

Flag byte — used at execution time by 
the root segments overlay fetch routine. 

X'80' Overlay in storage 

X'60' System overlay area (category 
values 1,2, 3, 5,6, and 7) 

X'40' Coresident area (user l/O-inde- 

pendent modules, category values 
8-126) 

X'20' System overlay area (category 
value 4) 

X'10' User overlay area (user l/O-depen- 
dent modules, category values 
8-126) 

X'OF' Reserved 



Figure 8-17. Overlay Fetch Table Entry Format 
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ST 


0VFRS1,ARR 


Save the return address 


B 


OVFR 


Call the overlay fetch routine 


DC 


XLTNN' 


One byte containing the overlay 
number 


DC 


AL2 (entry) 


Two-byte entry address 



Figure 8-18. Transfer Vector Format 



HOW TO FIND AN OVERLAY 



When a process check occurs, the following steps can 
determine which overlays are in main storage and where 
to find them. 



3. 



4. 



Mark off every 7- byte entry in the overlay fetch 
table until the last entry is reached. The last entry 
is X'FF' (see Figure 8-20). 

Number each entry left to right, starting with 1. 
Each entry refers to an overlay (see Figure 8-20). 

Look at the seventh byte in each entry. This is the 
flag byte. The first bit will be on for every overlay 
in storage at the time of the dump (see Figure 8-20). 

Compare the numbers you gave the overlays in 
storage at the time of the dump with the number 
of the overlays in the storage usage map (Figure 
8-1 9). This gives the names and addresses of the 
segments within the overlays that were in storage 
at the time of the dump (see Figure 8-20). 



1 . Locate the address of the overlay fetch routine on 
the storage usage map of the source listing (Figure 
8-19). 

2. Locate the overlay fetch table in the storage dump 
(see Figure 8-20). The overlay fetch table is 120 
bytes past the start address of the overlay fetch 
routine. It can be obtained by this hexadecimal 
formula: Address of overlay fetch routine +X78' = 
overlay fetch table. 



OVERLAY LINKAGE EDITOR STORAGE USAGE MAP AND CROSS REFERENCE LIST 



START 


OVERLAY 


CATEGORY 


NAME AND 


CODE LENGTH 


REFERENCED BY 






ODRESS 


NUMBER 


AREA 




ENTRY 


HEXADECIMAL 


DECIMAL 










0000 
0000 






128 


AAM05 
AAME05 


00D7 


215 


















OVLFRTN 


01 LL 


273 










0200 


I 


U 


20 


AAS000 


027A X 


^ 634 


AAM05 








0204\ 








AASEOO 














047A \ 


1 


U 


20 


AAStOO 


0115 


277 


AAM05 








047E \ 








AASE10 














0200 \ 


2 


U 


20 


AAS400 


012C 


300 


AAM05 








020* 


v 






AASE40 














032C 


\ 2 


U 


20 


AAS800 


0221 


545 


AAM05 








0330 


\ 






AASE80 














0200 


\ 3 


U 


20 


AAS500 


0342 


834 


AAM05 








0204 


>-— 






AASFSO 














0600 


/ * 


S 


3 


AAW1 


00A7 


167 


AAS800 


AAS400 


AASIOO 


AAM05 


06A7 a 


r i. 


S 


3 


AAM6 


02A7 


679 


AAS800 


AAS500 


AAS000 


AAM05 


0600 / 


5 


S 


4 


AAW2 


0143 


323 


AAS500 


AAS400 


AAS000 


AAM05 


0600 


6 


S 


6 


AAW4 


0239 


569 


AAS500 


AAS000 


AAM05 




0839 


6 


S 


6 


AAW9 


009D 


157 


AAS400 


AAS100 


AAM05 





DATE 77/04/25 

Start Address of Overlay 
Fetch Routine 

Length of Overlay Fetch Routine 
Including Overlay Fetch Table 
and Transfer Vectors 

Overlays in Main Storage at 
Time of Dump (Figure 8-26) 



SYS-3130 I AA15 MODULE'S MAIN STORAGE SIZE IS 

2560 DECIMAL 
SYS-3131 I 0004 IS THE START CONTROL AODRE SS OF THIS MODULE 
SYS-3132 I THE NONOVERLAY MAIN STORAGE SIZE IS 

4700 OECIMAL 
SYS-3134 I AA15 MODULE IS CATALOGED AS A LOAD MEMBER 

SLIBRARY IS THE LIBRARY NAME 

24 TOTAL NUMBER OF LIBRARY SECTORS 



Figure 8-19. Storage Usage Map and Cross- Reference List 
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TCB-3F68 IAR-0B7Q ARR-0AD5 XRl-2720 XR2-O5O0 PHR-00 PSR-O* 



ADOR 00 0* 08 OC 10 

0000 3<t080023 C2O200O2 C2010028 C087O17A C0870185 

0020 C087002* F*000*0* 003*0*02 C1CIE2F3 F0F0*0D5 

00*0 3*C*030D C5E63*C* 0200*0*0 *0*0*0*3 *0*0*0*0 

0060 *0*0*0*0 *0*0*0*0 *0*0*0*0 *0*0*0*3 *0*0*0*0 

DUPLICATE LINES SAME AS A30VE 

OOCO *0*0*0*0 *0*0*0*0 *0*0*0*0 *0*0*0*3 *0*0*001 



OOEO 
0100 
0120 
01*0 



1* 




Start of Overlay Fetch Routine 



COB70190 C08JO1A6 
C5E6*0*0 Cl/lE6F* 
*0*0*0*0 ^)*0*0*0 
*0*0*0*Q/*0*0*0*0 



00D7 

l*O028|3* 010139C2 



0*717*02 667*081* C202010A 6C027502 7C0776D2 
B88006F2 102A6C00 3A067*02 *E020273 B96006F2 



0139C202 0172BA80 06760260 F40IS701 75086F75 

OUFrs 

Ol*COOFF FF02300* 0*000606 00000 UOJ 030*0200 
0160 0200*2 10|000F0*06 00*E60pO 13020603 *32qOQ15 
0180 00070102 Oo|3*0801 *6C08700 D70 10*7A I 3*080 I *6 
01A0 87000702 03203*08 Ol*6C087 0OD7O302 Oo|3*0801 
OICO C08700D7 0*06A7p* 0801*6CO 87000705 06003*08 
01E0 ' 



02717602 735F0076 
1003BB80 06E20207 
0*7lC20l 0028C202 



IC 
C087019B 
*0D5C5E6 
*0*0*0*0 
40*0*0*0 

0100077* 
77D0011F 
BOFFOODO 
O0D23510 



*6C08700 D7060839| 03O*0*0* 0*0*0*0* 0*80330* 

0200 3*0802*9 *C090902 570C0202 57025A3D 000218F2 

0220 /o*C08701 C7JIMJ002 2EF2810* C08701D2 3D000239 
02*0 / 810*C0B7 0000CSB7 0010F*00 0*0*ClCl E2F0FOF0 
0260/ *0*0*0*0 *0*0*0*0^0*0*0*0 *0*0*0*3 *0*0*0*0 
DUPLICATE \NES SAHE AS A30VE 



Start Address of 
Overlay Number 1 
(from Figure 8-25) 



Entry Point of 
Overlay Number 1 



x'00D7' 
x '0078' 
x'014F' 



Overlay 
Fetch Table 




...B..K8 

...* D.AAS030 NEW AAW* NEW 

D..EW.D.. 



.G....2 K....2 

*...AASOOO OLDOLO 



Figure 8-20 (Part 1 .of 3). Sample Core Dump 
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TCB-3F68 IAR-0B70 ARR-0AD5 XRl-2720 XRZ-0500 PMR-00 PSR-04 



ADDR 


00 


0460 


40404040 


0*80 


09040 IOC 


04A0 


0004A8F2 


04C0 


C08704C4 


04E0 


40404040 


0580 


40404040 


05A0 


80340504 


05C0 


40404040 


05E0 


02000000 


0600 


34080620 


0620 


B04040C1 


0640 


140404040 


0820 


/ 40404040 


0840 


0863 1C09 


0860 J 


40D5C5E6 


0880/ 


40404040 


08CO 


40404040 



04 08 OC 10 

40404040 40404040 40404043 40404040 

0204D104 D4300004 92F2810'* C08701B1 

8104C087 00003000 04B3F2BI 04C08700 

F4000404 CICIE2FI FOF04005 C5E6D6D3 

40404040 40404040 4040404] 40404040 
DUPLICATE LINES SAME AS A30VE 

40404040 40404040 40404003 05040204 

02040704 OBOBOB07 04FF4043 40404040 

40404040 40404040 4040404] 40404040 

00010000 03040404 04040404 04803304 

4C091306 2ALC0906 3409F401 04064C09 

C«6F440 05C5E6C1 C1E2F0F3 FO4005C5 

404Vl4040 40404040 4040404] 40404040 
DUPLICATE LINES SAME AS ABOVE 

40404B40 40404040 4040404] 40404040 

0860091(4 0104064C 0909086] OC020863 

000000o\ 00000000 0000404] 40404040 

4040404o\4°*CK040 40404043 40404040 

duplicate Vines same as above 

40404040 4oVo4040 4040404] 40404006 



14 18 1C 

40404040 40403408 04C34C09 
3D00049D F28104CO 87000030 
003D0004 BEF28104 C08701D0 
C4404040 40404040 40404040 
40404040 40404040 40404040 



OB070407 
40404040 
40404040 
04631207 
0906340C 
E6404040 
40404040 



0407040B 
40404040 
40404040 
07070707 
02062A08 
40404040 
40404040 



FE808080 
40404040 
404040E2 
07040304 
38C08 702 
40404040 
40404040 



40400603 C4340808 594C0913 

O805C087 00004040 C1C1E6F9 

40404040 40404040 40404040 

40404040 40404040 40404040 

D3C40305 040A0402 6080B080 



.04...AAS100 NEWOLO 



AAW4 NEWAAS300 NErf 



Start Address of 
Overlay Number 6 



Entry Point of 
Overlay Number 6 



Figure 8-20 (Part 2 of 3). Sample Core Dump 



TCB-3F68 IAR-0B7O ARR-0AD5 XRl-2720 XR2-0500 PMR-00 PSR-04 



ADDR 00 04 08 OC 10 14 18 IC 

08E0 2005040A O402FF00 03040404 0404040't 04803304 04631207 07070707 07040304 

0900 FFFFFFFF FFFFFFFF FFFFFFFF FFFFFFF C FFFFFFFF FFFFFFFF FFFFFFFF FFFFFFFF 
DUPLICATE LINES SAME AS ABOVE 
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Figure 8-20 (Part 3 of 3). Sample Core Dump 
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System utility programs are supplied by IBM as part of the 
SSP. When a system utility program is run, OCL statements 
identify the program and supply to the SSP any informa- 
tion that it requires about the program. Diagram 9.0 shows 
the functions performed by the system utility programs. 



INPUT i 



Disk data 



Input file 



Input menu data 



Alternate 
sector data 

Input file _ 



VTOC and _ 
volume label 

Diskette files _ 

System library 

History file 

Diskette 



Volume label _ 
and VTOC 

System library . 
on diskette 

Libraries, 
directories, and 
librarian files 



Message text 

statements 

Disk VTOC and 
files 

Security profile 



Disk VTOC 



Communication/ 
work station 
configuration 
record 



Display screen 
format data 



From: Initiator 



PROCESS 






I I 






I 



I I 



> 






I i 



t 



> 



Perform system backup (Diagram 9.1) 



i r 



Perform basic interchange utility function 
(Diagram 10.1) 



Build menu display (Diagram 11.1) 



Rebuild alternate sector data 
(Diagram 12.1) 

Perform copy utility function 
(Diagram 13.0) 



Delete file (Diagram 14.1) 



Copy diskette file (Diagram 15.1) 



Perform file build function (Diagram 16.1) 
Display history file (Diagram 17.1) ^^^ 
Initialize diskette (Diagram 18.1) ~~~^~ 



Display disk/diskette VTOC 
(Diagram 19.1) 



Perform reload library /pseudo I PL function [ 
(Diagram 20.1) 



Perform library maintenance function 
(Diagram 21.1) 



Build message load member (Diagram 22.1) 
Reorganize disk files (Diagram 23.1 ) ZZZIZ 



Perform security profile utility function 
(Diagram 24.1) 



Rename disk file (Diagram 25.1 ) 



Modify communication/work station 
configuration record (Diagram 26.1 ) 



Build display screen format (Diagram 27.1 ) 



Process error for SSP or other PP 
procedure (Diagram 28.1 ) 



OUTPUT i 



^> Data saved on 
diskette 



^> Output file 



*^ Menu screen format 
load member 



^> Updated alternate 
sector data 



^> Copied file 



^> Updated VTOC 
and volume label 



^^ Copied diskette 
files 

^> New disk file 

^> History file display 

*^- Initialized diskette 

^> Displayed or 

printed information 



^> System library 
on disk 



^^ Libraries, 

directories, and 
librarian files 



^> Message load 
member 



^> Reorganized VTOC 
and files 



^^ Updated security 
profile 



^> New 



file name 




^> Updated 

configuration 
record 

I^> Display screen 
format 



To: Control Storage End-of-Job 
Transient ($EOJ) 



Diagram 9.0. Overview of System Utility Program 
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Chapter 9. Backup Library Utility ($BACK) 



Introduction 

The backup library utility ($BACK) copies the entire sys- 
tem library (#LIBRARY) to one or more diskettes. When 
the library is copied to the diskettes, library members are 
shifted to remove gaps (unused space between members 
is collected at the end of the library). 

The compressed library on diskette is in the following 
order: 

• Reload I PL program ($LOADI) - 30 sectors 

• Reload format load module (##FLOD) — 5 sectors 

• SLOADI heading messages — 4 sectors 

• Nucleus initialization program ($MSNIP) — 6 sectors 

• System configuration records (2) — 2 sectors 

• Library control sector (LCS) — 1 sector 

• Reload communication area (at X'CO' into LCS) 

• System library directory (addresses updated) 

• System library members (compressed) 

The backup library utility is called by the BACKUP proce- 
dure or appropriate OCL statements. (See System Support 
Reference Manual for information about calling $BACK.) 

The main functions involved in executing $BACK are: 

• Call the library directory compactor ($MACMP) to 
compress the library member directory. 

• Allocate and open the backup file on diskette. 



• Create strings of bits in main storage (matrix) repre- 
senting library members as they appear on disk. 

• Copy the reload library utility load module (SLOADI) 
from disk to diskette. 

• Copy reload screen format load module (##FLOD) and 
$LOADI level 1 messages from disk to diskette. 

• Copy main storage nucleus initialization program 
($MSNIP) from disk to diskette. 

• Copy the two configuration records and the library con- 
trol sector (LCS) from disk to diskette. 

• Update the library directory entries' sector addresses 
to reflect the compressed library and copy the library 
directory to diskette. 

© Copy the library members from disk to diskette using 
the matrix to eliminate holes in the library. 

• Close the diskette backup file. 

• Return to the system by way of the end-of-job trans- 
ient ($EOJ). 

$BACK requires 14K bytes of main storage, exclusive con- 
trol of the #LIBRARY file, and must run dedicated. 



Introduction 9-1 
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Method of Operation 

Diagram 9.1 shows the function of the backup library 
utility. 
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From: Initiator 



INPUT 




PROCESS 



OUTPUT 



Main Storage 



i> 



Transient Area 



User Area: 
$BACK 



Disk: 

• Library 
directory 

• Library control 
sectors 

• Library members 

SCA 



Perform library backup initialization 

Build library backup matrix 

Backup diskette IPL program ($LOADI) 

Backup main storage nucleus initialization 
program ($MSNIP) 

Backup configuration records and LCS 

Backup system library directory and 
library members (compressed) 

Terminate backup procedure 




Diskette: 

• Reload program 

• ##FLOD 

• $LOADI 

• System 
configuration 
records 

• LCS 

• Reload 
communication 
area 

• System library 
directory 

• System library 
members 
(compressed) 



To: Control Storage End-of-Job 
Transient ($EOJ) 



Diagram 9.1 (Part 1 of 3). Perform System Backup ($BACK) 



DESCRIPTION 


MODULE/ 
ROUTINE 


Q Move directory and library sector addresses from system library format 1 to disk IOB. 
Read system library control sector (LCS). 
Compact system library directory and update in-core LCS. 
► Calculate directory and library space now required (in sectors). 
Verify and diagnose backup diskette. 
Return. 

Open diskette DTF. 
Move file creation date from format 1 to reload-communication area. 


$BACK 


Disk IOS 


$MACMP 


$BACK 


#CAML 


$BACK 


#DMOP 


$BACK 


Move file name from format 1 to assign/free area. 




Set block size to track size calculated at open time. 




Calculate physical buffer end (CKPHYEND). 




Set maximum buffer sector count (CKBUFREC). 




Set dynamic buffer address (CKBUFFR@). 
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DESCRIPTION 



MODULE/ 
ROUTINE 



£J Set library matrix (4K) and hole table (2K) to zeros. 

Build library matrix from directory data: 

• Read directory sectors from disk. 

• Turn matrix bit on for each library sector allocated (matrix starts at X'3FFF' and goes backwards to X'3000'). 

If any SSP modules deleted (SSP decreased in size) pass old SSP size to reload communications area (CKSCPSAV). 
Q Find $LOADI address. 

If $LOADI not found, issue error message and exit. 

Copy reload program ($LOADI) to diskette: 

• Read 30 sectors of data into buffer. 

• Write data to diskette as buffer becomes full. 

► Find reload screen formats (# #FLOD) location. 
If ##FLOD not found, issue error message and exit. 

Copy # #FLOD to diskette: 

• Read data from disk into buffer. 

• Write data to diskette as buffer becomes full. 

• Return. 

Read heading messages into I/O buffer. (Sixteen messages, MICs 3900 through 3915, are loaded.) 
Return. 

If any heading messages not found, issue error message and exit. 
Write data to diskette as buffer becomes full. 
^J Find main storage nucleus initialization program ($MSNIP). 
If $MSNIP not found, issue error message and exit. 

Copy $MSNIP to diskette: 

• Read data into I/O buffer (buffer will not be filled for any buffer size). 

• Write data to diskette. 

Initialize hole table for directory /librar y co py: 

• Scan library backup matrix (built in ^J ) to find holes. 

• Set bit and hole values in hole table (to be used for directory backup). 

IMI Set up disk IOB to read two configuration records. 
Read configuration records into I/O buffer. 
Return. 

Write configuration records to diskette. 
Set up disk IOB to read library control sector (LCS). 
Read LCS into I/O buffer (1 sector). 
Return. 
Write LCS to diskette. 



$BACK 



Disk IPS 
$BACK 



#CLXS 



$BACK 
Disk IPS 
#DRSM 



$BACK 



#CLXS 



$BACK 
Disk IPS 
#DRSM 
$BACK 



#MGRET 



$BACK 



#CLXS 



#DRSM 



$BACK 



#CLSG 



$BACK 
Disk IPS 
#DRSM 



$BACK 



Disk IPS 



$BACK 



#DRSM 



$BACK 



Disk IPS 



$BACK 



#DRSM 
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DESCRIPTION 



MODULE/ 
ROUTINE 



Set up disk IOB to read system library directory. 

Read library directory into I/O buffer. 

Update hole table. 

Write library directory to diskette. 

Scan library backup matrix until hole is found (number of bits scanned is number of sectors to transfer 
to diskette). 

Start scan again with next allocated sector (creates string of sectors to be transferred to diskette). 

Use string just built to read library sectors into I/O buffer (buffer contains compressed library sectors — no holes). 

Return. 

Write library sectors to diskette as buffer becomes full. 

Return. 

Close diskette DTF. 

Pass control to control storage end-of-job transient ($EOJ). 



$BACK 



Disk IOS 



$BACK 



#DRSM 



$BACK 



Disk IOS 



$BACK 



#DRSM 



$BACK 



#DMCL 



$BACK 
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Program Organization 

Figure 9-1 shows the control flow for the backup library 
utility. 



Initiator 
Function 



4 



System Library 
Backup Utility 

($BACK) 



HI 



End of Job 



($EOJ) 



Disk IOS 



Allocate 
Mainline 

(#CAML) 



SYSLOG 



(#CLSG) 



Diskette 
Data 

Management 
(#DRSM) 



Common 
Close 

(#DMCL) 



Directory 
Compactor 

($MACMP) 



» 



Common 
Open 

(#DMOP) 



* 



Message 
Retrieve 

(#MGRET) 



Figure 9-1. System Library Backup Utility Control Flow ($BACK) 
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Chapter 10. Basic Exchange Utility ($BICR) 



Introduction 

The basic exchange utility ($BICR) provides a way to con- 
vert a disk file to a basic exchange file on diskette, to con- 
vert a diskette basic exchange file to a sequential or indexed 
disk file, to add a basic exchange file to a sequential disk 
file, or display a diskette basic exchange file onto the 
SYSLIST device. All diskette files that provide input to 
$BICR must be in basic exchange format. All diskette 
files created by $BICR are also in basic exchange format. 
Figure 10-1 shows the diskette basic exchange format. 

The utility program consists of a mainline phase ($BICR), a 
disk-to-diskette copy phase ($BICFI), a diskette-to-disk 
copy phase ($BICIF), a basic exchange file display phase 
($BICDI), and a syntax specification module ($BITAB). 
The program resides in the system library. 



The basic exchange utility is called by the TRANSFER 
procedure or appropriate OCL statements. (See the System 
Support Reference Manual for more information about 
calling and executing $BICR.) 

The basic exchange utility requires 14K bytes of main 
storage for program execution. 

Figure 10-1 shows the diskette basic exchange format. 



Sector 


Use 


Initialized To 


01 


Reserved 




02 


Reserved 




03 


Reserved 




04 


Reserved 




05 


Positions 1 through 13 are used to record the identity of error tracks. 
Positions 1-5 = ERMAP (ERMAP identifies the sector as an error map.) 
Position 6 is reserved. 
Positions 7 and 8 hold the identification of the only bad track, or, if two tracks are bad, 

the identification of the lower-numbered bad track. 

If no bad tracks are identified, positions 7 and 8 = b. 
Position 9 = b if no bad track has been identified in this field. If at least one bad track 

has been identified, position = 0. 
Position 10 is reserved. 
Positions 1 1 and 12 contain the number of the higher-numbered bad track if two bad 

tracks have been identified; otherwise, these positions contain blanks. 
Position 13 = if two bad tracks have been identified; otherwise, position 13 contains 

a blank. 
Positions 14 through 22 are reserved. 
Position 23 is a defect flag position, which is normally initialized to b. A 3540 using 

IBM programming support puts a D in this position if the 3540 detects a surface 

defect in the data field of any sector of any track. 
All other positions on the sector are reserved. 


1-5= ERMAP 
7-8 = b 

9 = b 

11-12 = b 
13 = b 

23 = b 



Figure 10-1 (Part 1 of 4). Diskette Basic Exchange Format 
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Sector 


Use 


Initialized To 


06 


Reserved 




07 


This sector is called the volume label. Various fields in this sector identify the diskette, 
the diskette format, diskette owner identification, and whether or not the diskette uses 
standard labels. 

Positions 1-4 VOL1 (VOL1 identifies the sector as a volume label.) 

Positions 5-10 are called the volume I D field. This field can contain the data written 
on the permanent diskette label to identify the diskette. The ID consists of one to 
six numeric digits or letters. These characters must be left-justified in the field 
(that is, the first character must be in position 5 of the sector), and any unused 
positions in the field to the right of the ID data must contain space characters 
(blanks). No blanks are allowed between digits or letters in this field. 

Position 1 1 is the volume accessibility field. 

A blank (space character) in this field permits access to the disk. 

Any non-blank character in this field means that the disk is not accessible or has 

restricted access per system definition. 

Positions 12-37 are reserved. 

Positions 38-51 are called the owner ID field. This field is not used by all systems. 

Positions 52-76 are reserved. 

Positions 77-78 are called the record sequence field. This field holds the sector 
sequence code assigned to the tracks on this diskette. 

Position 79 is reserved. 

Position 80 is the standard label version field. The W Character indicates that IBM 
standard labels are used on the diskette. All diskettes used on the IBM 3540, 
3741, 3742, and 3747 use standard labels, so this field should contain a W. 


1-4 = VOL1 

11 = b 
38-51 =b 

77-78 = b 
80 -W 


08 

through 

26 


These sectors are used to record the data set labels that define data sets (files of 
information) recorded on tracks 01 through 73 of the diskette. 





Position by Position Representation of Data on the 
Index Track in Any One Sector of Sectors 8-26. 


Field in Unused New Diskette 
Contains this Data 


Field Name 


Position 


Purpose 


Sector 08 


Sectors 09 
through 26 


Label ID 
(Identifier) 


1-4 


Label identifier for system application; must 
beHDRI 


HDR1 


DDR1 




5 


Reserved 






Data set name 


6-13 


User name for data set 


DATAbbbb 


DATA09bb through 
DATA26bb 




14-22 


Reserved 







Figure 10-1 (Part 2 of 4). Diskette Basic Exchange Format 
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Position by Position Representation on Data on the 
Index Track in Any one Sector of Sectors 8-26 


Field in Unused New Diskette 
Contains this Data 


Field Name 


Position 


Purpose 


Sector 08 


Sectors 09 
through 26 


Block/Record 
length 


23-27 


Tells the system how much of each 128- 
position sector contains actual data. 


bb080 


bb080 




28 


Reserved 






Beginning of 
extent (BOE) 


29-33 


Identifies the address of the first sector of the 
data set. Positions 29 and 30 contain the 
track number, position 31 must be 0, positions 
32 and 33 contain the sector number. 


01001 


74001 




34 


Reserved 






End of extent 
(EOE) 


35-39 


Identifies the address of the last sector reserved 
. for this data set, using the same format as BOE. 


73026 


73026 




40 


Reserved 






Bypass indicator 


41 


If set to b, the data set is intended for process- 
ing. If set to B, the data set is not intended for 
processing even though it resides on the disk. 
That is, a 3741 or 3742 user could store 3741 
or 3742 programs on a diskette (identified 
with B in the label) as well as data (identified 
with b in the label), and neither a 3747 nor a 
3540 would read the programs. Also, a data 
set identified with a B in this position would 
not be transmitted by a 3741 Model 2 operat- 
ing in teleprocessing transmit mode. 


b 


b 


Data set 
security 


42 


Blank indicates data set not secured (can be 
accessed). Nonblank character (which can be 
written only by 3540) means restricted access. 
When set to nonblank, the volume accessibil- 
ity indicator must also be set to nonblank. 
The data cannot be read by 3741, 3742, 3747, 
but may be read by 3540 with operator quali- 
fication. The data set cannot be written upon, 
and the volume accessibility indicator cannot 
be changed from nonblank by the 3741, 3742, 
or 3747, or by 3540 programming support. 


b 


b 


Write protect 


43 


If this field contains a P, the data set can be 
read only. This field must be a blank to 
allow both reading and writing. 


b 


b 


Interchange type 
indicator 


44 


Must be blank. A blank indicates the data 
set can be used for data interchange. 


b 


b 



Figure 10-1 (Part 3 of 4). Diskette Basic Exchange Format 
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Position by Position Representation of Data on the 
Index Track in Any one Sector of Sectors 8-26. 


Field in Unused New Diskette 
Contains this Data 


Field Name 


Position 


Purpose 


Sector 08 


Sectors 09 
through 26 


Multivolume 
indicator 


45 


A blank in this field indicates a data set is 
wholly contained on this diskette; a C indi- 
cates a data set is continued on another 
diskette; an L indicates the last diskette 
on which a continued data set resides.* 


b 


b 


Volume sequence 
number** 


46-47 


Volume sequence specifies the sequence of 
volumes*in a multivolume data set. The 
sequence must be consecutive, beginning 
with 01 (to a maximum of 99). Blanks 
indicate that volume sequence checking 
is not to be performed. 


hb 


bb 


Creation date** 


48-53 


May be used to record the date the data set 
was created. The format is digits represent- 
ing YYMMDD, where YY is low-order 2 
digits of year, MM is 2-digit representation 
of month, and DD is 2-digit representation 
of day of the month. 


bbbbbb 


bbbbbb 




54-66 


Reserved 






Expiration date** 


67-72 


May be used to contain the date that the 
data set (and its label) may be purged. The 
format is as specified for creation date. 


bbbbbb 


bbbbbb 


Verify mark 


73 


This field must contain a V or a blank. V 
indicates the data set has been verified. 


b 


b 




74 


Reserved 






End of data 
(EOD) 


75-79 


Identifies the address of the next unused 
sector within the data set extent. 


01001 


74001 




80 


Reserved 






Each sector contains one record. Standard interchange does not support blocking. 

*When preparing data for conversion by the 3747, check the IBM 3747 Data Converter Reference Manual, 
GA21-9153, for the interpretation of the multivolume bytes. 

**These fields are used only in conjunction with the 3540. 
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Method of Operation 

Diagram 10.1 shows the function of the basic exchange 
utility. 
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From: Initiator 



■INPUT 



c 



• XR1 



Input file DTF 



C 



Output file DTF 
Main Storage 



Transient Area 



User Area 
$BICR- 
$BICFI 
$BICIF- 
$BICDI 
(see Figure 
10-3) 



Control statements 

Input file 

Output file (for 
ADD-YES) 




PROCESS 



> 



U Process utility control statement and 
determine requested function 

I Display basic exchange file if requested, 
then go to 

gj Allocate input and output files 

Q Open input and output files 

| Transfer data and close files 

Urn Terminate program 



> 



■ OUTPUT 



Output file: 

• Disk 

• Diskette 

• Display 




To: Control Storage End-of-Job 
Transient ($EOJ) 



DESCRIPTION 


MODULE/ 
ROUTINE 


MM Build parameter list to find syntax checker (#USYX). 

Locate #USYX. 

Read and check syntax of control statements. 

If DISPLAY specified, set display indicator. 
KjS Find I/O device in device allocate table if diskette. 

If display indicator on: 

• Load $BICDI into main storage following $BICR. 

• Go to El. 

Get format 1 for diskette COPYIN file. 


$BICR 


#MASFN 


#USYX 


$BICR 


#CSAF 
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DESCRIPTION 


MODULE/ 
ROUTINE 


If format 1 found: 

• Load$BICIF. 

• Gotojcl. 

If format 1 not found: 

• Load $BICFI (copy diskette to disk). 

• Go to El. 

If diskette busy: 

• Display message. , _ j, 

• If retry option (1 ) taken, go to U^jp. 

• If cancel option (3) taken, go toR| . 

Q Get format 1 for diskette COPYIN file. 

Return. 

Allocate COPYIN file. 

Use main storage relocating loader (SVC 52) to load diskette data management (#DRDM). Also load display 
screen routine ($COCRT) and display service add ($FEKEY) or print interface ($COPRT) depending if SYSLIST 
goes to display screen or printer. 

Open diskette DTF. 

Return. 

Read records from diskette file. 

Return. 

Output records to SYSLIST device (printer or display screen) as requested. 

Continue processing until entire file displayed. 

Issue error messages as necessary. 

Close diskette file. 

Go to^Jto terminate program. 

Q If copy disk to diskette ($BICFI): 

• Get format 1 for disk COPYIN file. 

• Return. 

• Allocate input file on disk. 

• Allocate output file on diskette as a sequential basic exchange output file. 

If copy diskette to disk ($BICIF): 

• Get format 1 for diskette COPYIN file. 

• Return. 

• Allocate input file on diskette. 

• Return. 

• Allocate output file on disk as follows: 

— If ADO-YES, allocate output file as sequential input file to cause check of output file's existence. 

— If ADD-NO, allocate as output file: 

a. If key information specified, allocate output file as indexed file. 

b. If no key information specified, allocate output file as sequential file. 

c. If COPYO file statement specified, do normal allocate using COPYO file statement. 

d. If no COPYO file statement specified, do special allocate using input file's label and size. 


$BICR 


#CLXS 


#CSAF 


$BICDI 


#CAML 


SBICDI 


#DMOP 


$BICDI 


#DRDM 


$BICDI 


$COPRT 

or 
$COCRT 


$BICDI 


#CLSG 


#DMCL 


$BICDI 


SBICFI 


#CSAF 


$BICFI 


#CAML 


$BICIF 


#CSAF 


$BICIF 


#CAML 


SBICIF 


#CAS1 

or 
#CAML 
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DESCRIPTION 



MODULE/ 
ROUTINE 



If copy disk to diskette ($BICFI): 

• Perform dummy open on COPYIN DTF. 

• Reset UPSI in COPYIN and COPYO DTS's. 

• Load diskette data management (#DRDM) into main storage. 

• Set up input DTF as: 

— Indexed sequential input. 

— Sequential input. 

— Direct input. 

If one-sided single-density diskette: 

— Set output Record length to 128. 
If two-sided double-density diskette. 

— Set output Record length to 256. 
Set up I/O area. 

Open both DTFs. 

copy diskette to disk ($BICIF): 
If ADD-YES, perform dummy open on output DTF. 
Reset UPSI in COPYIN and COPYO DTFs. 
Load diskette data management (#DRDM) mto main storage. 
If ADD-YES, set up output DTF to consecutive add. 
If key information given, set up output DTF for indexed output. 
Set all others to consecutive output. 
Set up I/O area. 
Open both DTFs. 

If copy disk to diskette ($BICFI): 

Retrieve record from disk file (if record buffer exists, use move mode). 

Return. 

Write record to diskette output file. 

If copy diskette to disk ($BICIF): 
Retrieve record from diskette file. 
Return. 

Write record to disk output file. 
Return. 



Close input and output files. 

Pass control to control storage end-of-job transient ($EOJ). 



$BICFI 



#DMOP 



$BICFI 



#DMOP 



$BICIF 



#DMOP 



SBICIF 



#DMOP 



SBICFI 



#DDDM 



SBICFI 



#DRDM 



SBICIF 



#DDDM 



$BICIF 



#DDDM 



$BICIF 



#DMCL 



$BICR 
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Program Organization 

Figure 10-2 shows the control flow of the basic exchange 
utility. Figure 10-3 shows the main storage map for the 
utility. 



Basic 
Exchange 
Utility 
($BICR) 



Syntax 
Checker 

($USYX) 



Basic Exchange 
Disk to Diskette 

($BICFI) 






Basic Exchange 
Diskette to Disk 

($BICIF) 



I 



Active F1 
Access 
Routine 
(#CSAF) 



Allocate 
(#CAML) 

■ or 

(#CAS1) 



Diskette 
Data 

Management 
(#DRDM) 



Common Open 



(#DMOP) 



Common 
Close 

(#DMCL) 



Disk 
Data 

Management 
(#DDDM) 



End-of-Job 
($EOJ) 
-Control Storage- 



Figure 10-2 (Part 1 of 2). Basic Exchange Utility Control Flow ($BICR) 
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Basic 
Exchange 
Utility 
($BICR) 



Basic 
Exchange 
Display 
($BICDI) 



I 



Diskette 
Data 

Management 
(0DRDM) 



» 



* 



» 



Display 
Service Aid 

($FEKEY) 



Display 

Screen 

Routine 

($COCRT) 



* 



» 



Common 
Open 

(#DMOP) 



Printer 
Interface 

($COPRT) 



* 



SYS LOG 



WCLSG) 



Common 
Close 

(0DMCL) 



* 



» 



AFA Access 
Routine 

(0CSAF) 



Normal 
Allocate 

(#CAML) 



End-of-Job 
Transient 
($EOJ) 
-Control Storage- 



Figure 10-2 (Part 2 of 2). Basic Exchange Utility Control Flow ($BICR) 
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Data Areas 



Program Storage Start 





Common Data Areas 




:r 


$BICR Mainline Logic 




Open Files Logic 




Transfer Data Logic 


Overlay Storage Area 


Syntax Checker Interface Logic 


This area used for: 

• Diskette data management 

• Record buffer if needed 


Allocate Files Logic 




Syntax Checker Run Area 






• Diskette data management buffer — 3.25K 






• Disk data management 






• Remainder of main storage allocated 






for disk data management buffer 



Program Storage End 
Figure 10-3. Main Storage Map for Basic Exchange Utility 
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BICCVLST VERB LIST 

The BICCVLST verb list is a list of constants passed to the 
syntax checker (#USYX) each time #USYX is called. Fig- 
ure 10-4 shows the format and contents of the verb list. 



Displacement of 




Leftmost Byte 




in Hexadecimal 


Label 





BICCVLST 


1 


- 


2 


__ 



Length in 




Bytes in 




Decimal 


Description 


1 


Transfer verb ID 


1 


End verb ID 


1 


Display 


1 


X'FF' end of verb list 



Figure 10-4. BICCVLST Verb List 
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Chapter 11. Build Menu Utility ($BMENU) 



Introduction 

The build menu utility ($BMENU) provides a way to build 
a menu display. The menu display can be selected when 
signing on the system at a work station or by way of the 
MENU command. A menu gives the system user the con- 
venience of submitting work by entering a menu item 
number as opposed to entering actual control commands, 
procedures, or OCL statements. The system user sees a 
description of the work to be performed without seeing 
the actual control command, procedure name, or OCL 
statement used as input to the system control program. 

The purpose of the menu build utility is to build a screen 
format load member for the menu. When the system user 
accesses the menu at sign-on or by way of the MENU 
command, the menu contained in the screen format load 
member is displayed on the screen. 



The $BMENU utility consists of the build menu phase 
($BMENU), message retrieve (@MGRET) and addressing 
module (@BMAM) link-edited with $BMENU, and the 
build menu syntax checker specification module ($BMTB). 
The build menu program resides in the system library. 

The build menu utility is called by the BLDMENU proce- 
dure or appropriate OCL statements. (See the System 
Support Reference Manual for more information about 
calling and executing $BMENU.) 

The $BMENU utility requires 14K bytes of main storage 
for program execution. 
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Method of Operation 

Diagram 1 1.1 shows the function of the build menu utility. 
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From: Initiator 



INPUT 



Main Storage 



Transient Area 



User Area: 
$BMENU 



Control statements 
Input library: 

• Command msg. 
mbr. 

• Display text 
msg. mbr. 

^LIBRARY: 

• Skeleton source 
format in 
##MSG2 
records 




PROCESS 



:> 



Process utility control statement using 
syntax checker 

Verify input message members and input 
library existence 

Prepare work file to build SFGR source 
records 

Get date and time 

Build temporary screen format source 
records for screen format generator 
reflecting menu being built 

Build screen format generator communica- 
tion area 

Pass control to SFGR ($SFDEP) 



O 




■ OUTPUT 



Menu listing 

Input library: 
• Menu screen 

format load 

member 



To: Control Storage End-of-Job 
Transient ($EOJ) 



DESCRIPTION 


MODULE/ 
ROUTINE 


pry Read and syntax check MENU control statement: 

Check INPMSG value validity: 

• Issue message SYS-5756 if INPMSG less than 2 characters. 

• Issue message SYS-5751 if INPMSG does not end with # #. 

WM Find library specified by INLIB parameter. 
Return. 

Find INPMSG member in input library. 
Save library format 1 address. 

Issue message SYS-5752 if INLIB value not found or message SYS-5753 if INPMSG member not found. 
Look for old menu member in input library. 
Return. 

Issue message SYS-5004 if menu exists but is not SFGR member. 
Issue message SYS-5005 if REPLACE-NO specified (or defaulted) and menu exists and is an SFGR member. 


#USYX 


$BMENU 


#CLSG 


#MAFLB 


$BMENU 


#MASFN 


$BMENU 


#MASFN 


$BMENU 


#CLXS 
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DESCRIPTION 



MODULE/ 
ROUTINE 



Find MENMSG member in input library if MENMSG specified: 

• Save library format 1 address. 

• Issue message SYS-5754 if not found. 

• Issue message SYS-5762 if MENMSG name is same as menu being built. 

Read END control statement. 
| Allocate work file for menu source build and issue message SYS-5755 if work file not allocated. 
Return. 

Open work file just allocated. 

Build programl and program2 message member pointers in job control block (JCB). 
Q Get date and time by reading MIC 5400 and filling in date and time fields in # #MSG2. 

|{J Get skeleton source statements from # #MSG2 (in # LIBRARY) to build format and place statements in work file: 

• Return. 

^ • MIC 5755 — SFGR S record and source record for line 1 . 

• MIC 5756 — source records for line 1 . 

• MIC 5757 — source records for line 2 

• MIC 5758 — skeleton source records for lines 03-14. 

Build source records for item number lines (lines 03-14 on menu format): 

• Build source records for item numbers 1 to 24 for specified line: 

— Find item number MIC in INPMSG member. 

— Find item number MIC in MENMSG member. 

— Build 30 byte item text description as follows: 

a. If item number MIC found in both INPMSG and MENMSG members, use first 30 bytes of MENMSG 
member MIC. 

b. If item MIC found in INPMSG member only, use first 30 bytes of INPMSG member MIC. 

c. If item MIC found in MENMSG member only, set item text to blanks. 

d. If item MIC missing in both message members, set item text to blanks. 

e. If item MIC found in INPMSG member is blank record, set item text to blanks. 

f. If item MIC found in INPMSG member is nonblank, and corresponding MENMSG memeber MIC is a 
blank record, use the first 30 bytes of INPMSG MIC. 

— Write SFGR source records for this item number. 

— Return 

— Print messages if any. 

Build lines 21, 23, and 24 in menu format using skeleton source statements in § #MSG2: 

• MIC 5759 — line 21 source records. 

• MIC 5760 — line 21 source records. . 

• MIC 5761 - line 23 source records. 

• MIC 5762 — line 24 source records. 

Print last heading line for build menu listing if menu not built OK. Issue # #MSG2 MIC 5770; all INPMSG item 
MICs not found or contained blank records. 

Return. 

H Close work file. 

Check if any item MICs in INPMSG message member: 

• If no, issue message SYS-5757 with cancel option only. 

• If yes, and all INPMSG MICs contain blank records, issue MIC 5750 with cancel-only option. 

• If yes, and valid INPMSG MICs found, continue to build SFGR communication area. 
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DESCRIPTION 



MODULE/ 
ROUTINE 



Move work file data sector count to SFGR communication area. 

Move 256 bytes of zero to location X'C800' - X'C8FF\ 

Move SFGR communication area to X'C800'. 

Move X'FF' to X'C90G" through X'CAFF'. 

Use main storage relocating loader to load SFGR Diagnose Errors and Print phase ($$FDFP). 

Note: The screen format generator uses the temporary source screen format member just built as input to 
build the menu screen format load member. 



$BMENU 
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Program Organization 

Figure 1 1 -1 shows the control flow for the build menu 
utility. 
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Figure 11-1. Build Menu Utility Control Flow ($BMENU) 
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Chapter 12. Alternate Sector Rebuild Utility ($BUILD) 



Introduction 

The alternate sector rebuild utility ($BUILD) allows the 
System/34 user to display and correct data on disk after 
a disk read error has occurred. When a disk read/write 
error occurs, the data is written to an alternate sector. 
Disk alternate sectors are sectors reserved for use in place 
of defective disk sectors. 



The sector containing bad data is then presented on the 
display screen where it can be corrected. (See the System 
Support Reference Manual for information about the data 
format and how the bad data can be corrected.) 

The alternate sector rebuild utility is called by the BUI LD 
procedure or appropriate OCL statements. $BUILD has 
no utility control statements. 



$BUILD searches alternate disk sectors for data that is 
unreadable because of a read/write error. Each sector 
containing bad data is printed, along with the sector pre- 
ceding and the sector following the bad sector. 



$BUILD requires 14K bytes of main storage and must run 
dedicated until it finishes reading and writing alternate 
tracks. 
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Method of Operation 

Diagram 12.1 shows the function of the alternate sector 
rebuild utility. 
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From: Initiator 



INPUT 




PROCESS 



c 



XR1 
Disk IOB 



> 



r 



Parameter list 
Main Storage 



Read all alternate sectors 
Print alternate sector rebuild data 
Update bad sector data 
Terminate procedure 



Transient Area 



User Area: 
$BUILD 



Alternate sector 
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VTOC index 

VTOC format 1 

records 

Keyboard routine I 





OUTPUT 
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data sector 



t.mm^ HUMH1W— W,WW'.M— BfXBB 



J 



Tor Control Storage End-of-Job 
Transient ($EOJ) 



DESCRIPTION 


MODULE/ 
ROUTINE 


H^ Initialize disk IOB to read alternate sector IDs on alternate sector tracks 4 and 5, cylinder 2/spindle 1 (also 
spindle 2 if available). 

Build bad data table: 

• Read alternate sector IDs. 

O Test bad data flags looking for address of bad data. 

• If bad data found, convert address to SS format and place address in 6 byte/entry bad data table (each entry 
contains SSS of bad primary and SSS of alternate). 

If no entries in bad data table, go toQ. 

Display operator paper form change warning message (MIC 4352). 

Find CRT window display routine ($FEKEY). 

Use main storage relocating loader (SVC-52) to load $FEKEY. 

Load heading messages (MIC 1550-1558) into main storage. 

Return. 

tfjffl Read active format 1s to locate file containing bad sector. 

If bad sector not in file, set name to NOFI LE for print. 


$BUILD 


Disk IOS 
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DESCRIPTION 


MODULE/ 
ROUTINE 


Obtain sector address. 


$BUILD 


If bad sector is first sector in file, set on no-sector-before indicator. 




If bad sector is last sector in file, set on no-sector-after indicator. 
If sector-before to process (BUSWITCH), read sector-before data. 




Disk IOS 


Read bad-data sector (set on no-ERP before read operation). 
If no sector-after to process, go to |jj. 
Read sector-after data. 
W4R Convert sector-before, bad sector, and sector-after sector addresses to printable characters. 
Print $BUILD heading line. 




$BUILD 


Disk IOS 


$BUILD 


#CLST 


If sector-before to be printed (BUSWITCH): 

• Print filename and sector-before address. 

• Print sector-before message (MIC 1552). . 

• Print character position line. 

• Print actual data characters. 

© Print zone and numeric portion of each character. 




Print bad sector data: 

• Print filename and bad sector address. 

• Print bad data message (MIC 1553). 

• Print character position line. 

• Print actual data characters. 

• Print zone and numeric portion of each character. 




If sector-after to be printed (BUSWITCH): 

• Print filename and sector-after address. 
© Print sector-after message (MIC 1554). 

• Print character position line. 

• Print actual data. 

© Print zone and numeric portion of each character. 
© Print information message. 

Bel Initialize $FEKEY parameter list. 

Display bad data sector. 




$BUILD 


$FEKEY 


Update bad data if desired. 

If Enter/Rec Adv key returned and not at end of bad-data table, return to££ffj9. 




$BUILD 


If Roll key returned, return tofyjj. 
Write updated sector back to disk. 
Return. 
IfflU If errors detected display appropriate error message with 3 option halt. 
Pass control to control storage end-of-job transient ($EOJ). 
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Program Organization 

Figure 1 2-1 shows the control flow for the alternate sector 
rebuild utility. 
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Chapter 13. Disk Copy/Display Utility ($COPY) 



Introduction 

The disk copy/display utility performs the following 
functions: 

• Copies an entire file from the disk to diskette(s), from 
diskette(s) to the disk, or from disk to another location 
on the disk to: 

— Provide a duplicate of a file 

— Move a file to a larger disk area 

• Deletes records from a file (selected records are omitted 
from the copy; the original remains unchanged). 

• Copies a portion of a file. Selected records can be 
deleted from the copy. 

© Copies all user disk data files (except user libraries), 
all disk data files with a specified file group identifier, 
or all disk data files with no group identifier to disk- 
ette^) to create a backup copy of the files or to obtain 
more space on the disk. When all files are to be copied, 
$COPY must be requested from the system console, 
and no other jobs can be running. 

• Restores previously copied files from diskette (s) to the 
disk. 

© Copies an indexed file, and puts the records in key order 
(reorganize the file) to improve the performance, in 
some cases, of programs that use the file. Selected rec- 
ords can be deleted from the copy. 

• Adds a disk file to an existing diskette file. 

• Displays all or part of a file (either on the display screen 
or printer, depending on the current system list device 
assignment for the requesting work station). 



The disk copy/display utility consists of the following 
modules that reside in the system library: 

• Disk copy display mainline phase ($COPY) 

• Copy all files primary phase ($COALL) 

• Add to diskette file phase ($COADD) 

• Copy initialization phase — for copying ail files 
($COANT) 

• Copy initialization phase — for copying one file 
(SCO I NT) 

© Input/output interface — for record mode ($COGET) 

© Sectorized file copy phase ($COZIP) 

© Record exclusion routine ($COSEL) 

© SYSLIST interface ($COPRT) 

© Window (CRT) display interface routine ($COCRT) 

© Syntax specification module ($COTAB) 

The disk copy/display utility is called by the appropriate 
procedure or OCL statements. (See the System Support 
Reference Manual for more information about calling and 
executing $COPY.) 

Input to the utility consists of the control statements, input 
file(s) on disk or diskette, and format 1's. $COPY calls 
the syntax checker (#USYX) to read and syntax check the 
control statements. 
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The $COPY module uses control statement information to 
build the copy communication area ($CCCA) and then 
loads $COALL, $COADD, $COANT or $COINT, depend- 
ing upon the function requested. 

Depending on the control statement, output can consist 
of one of the following: 

• COPYADD control statement: disk file added to exist- 
ing diskette file 

• COPYALL control statement: 

— All or selected disk data files saved on diskette 

— Previously saved data files restored to disk 

• COPYFILE control statement: 

— The entire file copied from disk to diskette, diskette 
to disk, or disk to another location on disk, using 
sector mode processing 

— Selected records copied to disk, diskette, printer, or 
display screen, using record mode processing 

— Indexed file records reorganized in key order 

• KEY control statement with COPYFI LE control state- 
ment: A direct, indexed, or sequential file, with speci- 
fied records deleted, copied from disk to diskette, 
diskette to disk, or disk to another location on disk 
creating an indexed file. 

The disk copy/display utility requires 14K bytes of main 
storage for program execution. 
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Method of Operation 

Diagrams 13.0 through 13.4 show the functions of the disk 
copy/display utility. 



From: Initiator 



INPUT 




PROCESS 



OUTPUT — UMU-M.'!*— HM 



Disk input file 



Disk or diskette 
input file 



I j 



I 

i^ # Add to diskette file (Diagram 13.1) 




£>• Copy all files (Diagram 13.2) 



Copy entire file (Diagram 13.3) 
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Diagram 13.0. Overview of Disk Copy /Display Utility 
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To: Control Storage End-of-Job 
Transient ($EOJ) 



DESCRIPTION 


MODULE/ 
ROUTINE 


|gj] Initialize common communication area ($CCCA). 

Read and syntax check COPYADD utility control statement. 

Read and syntax check END utility control statement. 

Load and pass control to add to diskette file phase ($COADD). 

Ki Load sectorized diskette data management (#DRSM) and sectorized disk data management (#DDSM) into 
main storage. 

Use active file area (AFA) access routine to find COPYO and COPYIN format 1's. 

Allocate diskette and disk files. 

Return. 


$COPY 


#USYX 


$COPY 


$COADD 
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Diagram 13.1 (Part 1 of 2). Perform Add to Diskette File - COPYADD - Function ($COPY) 
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DESCRIPTION 



MODULE/ 
ROUTINE 



Open diskette and disk files. 

Return. 
^ Read records from disk and place in buffer. 

Return. 

Write records from buffer to diskette. 

Continue processing until end of file reached on input. 

Display error messages as necessary. 

Close disk and diskette files. 
|CJ Transfer control to end-of-job transient ($EOJ) to terminate job. 
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Diagram 13.1 (Part 2 of 2). Perform Add to Diskette File - COPYADD - Function ($COPY) 
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PROCESS 
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Interpret control statements and call 
appropriate phase 

Determine requested function (save all or 
restore all) and initialize required areas 

Process COPYIN and COPYO statements 
and initialize appropriate areas 

Transfer files from disk to diskette (save) 
or diskette to disk (restore) 

Terminate program 
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OUTPUT 



Disk or diskette 
output file 



To: Control Storage End-of-Job 
Transient ($EOJ) 



DESCRIPTION 


MODULE/ 
ROUTINE 


KH Initialize common communication area ($CCCA). 

Read and syntax check COPYALL utility control statement. 

Read and syntax check END utility control statement. 

Determine TO and FROM units (disk and diskette). 

Use active file area (AFA) access routine to read COPYIN and COPYO statements from disk. 

If input from disk: 

• Get first (or next) VTOC entry from disk for the specified set of files (a file on disk, a file with a specified 
group identifier, or a file without any file group identifier). 

Load sectorized disk data management (#DDSM) and sectorized diskette data management (#DRSM) into main 
storage. 

Load and pass control to copy all files (COPYALL) phase ($COALL). 


$COPY 
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#CSVF 


$COPY 
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DESCRIPTION 



MODULE/ 
ROUTINE 



Determine whether save all or restore all function requested. 

If save all requested: 

• Set up format 1 area and generic name. 

• If recursion to $COALL: 

- Get next VTOC format 1 entry for the specified set of files (a file on disk, a file with a specified 
group identifier, or a file without any file group identifier). 

- Issue message to ask for next diskette to be mounted (if necessary). 

- Update AFA format 1 for COPYO to diskette. 
If restore all request: 

• Set up format 1 area and generic name. 

• If recursion to $COALL: 

- Get diskette VTOC format 1 . 

- Update COPYIN format 1 and place in AFA. 

Load and pass control to copy initialization phase ($COANT). 
If COPYIN for disk (save all request): 



Ensure validity of utility statement parameters and file type. 

Prepare input DTF for disk. 

Prepare output DTF for diskette. 

Allocate output file. 

Return. 

Open output file. 

Load sectorized file copy phase ($COZIP) into main storage and go to I 



If COPYIN for diskette (restore all request): 

O Allocate input diskette file. 

© Prepare input DTF for diskette. 

© Open input file. 

o Return. 

© Read first sector of diskette file for embedded format 1 . 

© Convert embedded format 1 to AFA format 1 . 

© Prepare output file for disk. 

© Allocate output file. ^^ 

© Load sectorized file copy phase ($COZIP) into main storage and go to BEB . 

Initialize work area, instructions, and disk (if necessary). 

If SAVE function (disk to diskette copy) : 

• Open diskette DTF. 

• Convert AFA format 1 structure into embedded format 1 structure and place in putput buffer. 

• Allocate disk input file. 

• Return. 

• Open disk DTF. 

• Return. 

• Read data from disk. 

• Return. 

© Write data to diskette. 

Continue processing until entire file transferred to diskette. 

Close output (diskette) file and input (disk) file. 

Deallocate input (disk) file. ^^ 

If last file not yet saved, indicate recursion, reload $COALL and go to£J|. 

Go to B^8 to terminate program. 
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DESCRIPTION 



MODULE/ 
ROUTINE 



If RESTORE function (diskette to disk copy): 

• Open disk output file. 

• If indexed file, prepare index buffer. 

• Read data from diskette. 

• Return. 

• Write data to disk. 

• If indexed file: 

— Copy keys to buffer. 

— Write keys to disk. 

• Continue processing until entire file copied to disk. 

• Update output format 1's in AFA. 

• Close output (disk) and input (diskette) files. 

• Deallocate output (disk) file. ^^ 

• If last file not yet restored, indicate recursion, reload $COALL, and go toQ. 

• Go to El to terminate program. 

Transfer control to control storage end-of-job transient ($EOJ) to terminate program. 
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Interpret control statements and call 
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Process COP YIN and COPYO statements 
and initialize appropriate areas 

Transfer files from disk to disk, disk to 
diskette, or diskette to disk 

Terminate program 
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OUTPUT 



Disk or diskette 
output file 




To: Control Storage End-of-Job 
Transient ($EOJ) 



DESCRIPTION 



MODULE/ 
ROUTINE 



U Initialize common communication area ($CCCA). 

Read and syntax check COPYFILE utility control statement. 

Ensure control statement is // COPYFILE OUTPUT-DISK.DELETE-NO.REORG-NO (sectorized data 
management can be used — if not, go to Diagram 13.4). 

Read and syntax check END utility control statement. 

Use active file area (AFA) access routine to read COPYIN and COPYO file statements (determines if input from 
disk or diskette); save attributes in $CCCA. 

Load disk and diskette sectorized data management (#DDSM and #DRSM) into main storage. 

Load and pass control to copy initialization phase (COINT). 

Q If COPYIN for disk (input device is disk): 
^ • Allocate input file. 

• Ensure validity of utility statement parameters and file type. 

• Prepare input and output device DTFs. 

• Allocate output file. ^^ 

• Load sectorized file copy phase ($COZIP) into main storage and go tojjj. 
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Diagram 13.3 (Part 1 of 2). Copy Entire File (COPYFILE) Using Sector Mode Processing ($COPY) 
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DESCRIPTION 


MODULE/ 
ROUTINE 




If COPYIN for diskette (input device is diskette): 

• Allocate input file. 

^ • Prepare input DTF for diskette. 

• Open input file. 

• Return. 

• Read first sector of diskette file to get embedded format 1 . 

• Convert embedded format 1 to AFA format 1. 
. • Prepare output file for disk. 

• Update COPYO statement in AFA with file input label. 

• Update output DTF. 

• Allocate output file. 

• Load sectorized file copy phase ($COZIP) into main storage and go to Q- 

|c] Initialize work areas, instructions, and disk if necessary. 

If disk to disk copy: 

• Open input and output files. 

• Return. 

• If file is indexed, read index from disk into buffer and write index to new disk location. 

• Read sector of input data and write to new area on disk (continue processing until entire file transferred). 

If disk to diskette copy: 

• Open diskette output file and disk input file. 

• Return. 

• Read data from disk. 

• Return. 

• Write data to diskette. 

• Continue processing until entire file transferred. 

• Close output (diskette) file. 

If diskette to disk copy: 

• Open disk output file. 

• Return. 

• Read data from diskette. 

• Return. 

► • Write data to disk. 

• If indexed disk file: 

— Copy keys to buffer. 

— Write sectors of keys to disk. 

• Continue processing until entire file copied to disk. 

• Update output format 1's in AFA. 

Close input and output files. 
Issue error messages as necessary. 
Q Transfer control to control storage end-of-job transient (EOJ) to terminate job. 


$COINT 




#CAML 




$COINT 


4 


#DMOP 




$COINT 




#DRSM 




$COINT 




#CAS1 




$COINT 




$COZIP 




#DMOP 




$COZIP 




Disk IOS 




#DDSM 




$COZIP 




#DMOP 




$COZIP 




#DDSM 




$COZIP 




#DRSM 




$COZIP 




#DMCL 




$COZIP 




#DMOP 




$COZIP 




#DRSM 




$COZIP 




#DDSM 


4 


$COZIP 




#DRSM 




FDIOS 




$COZIP 




#DMCL 




#CLXS 




$COZIP 





Diagram 13.3 (Part 2 of 2). Copy Entire File (COPYFlLE) Using Sector Mode Processing ($COPY) 
13-10 



Licensed Material— Property of IBM 



From: Initiator 



INPUT 



c 



XR1 

"Common 
communication 
area ($CCCA) 

Main Storage 



Transient Area 



User Area : 
$COPY - 
$COINT 
$COGET- 
$COSEL 
$COPRT - 
$COCRT 



Control statements 

Disk VTOC 

Diskette or disk 
input records 




PROCESS 



^> 



U Interpret control statements and call 
appropriate phase 

Q Process COPYIN and COPYO statements 
and initialize appropriate areas 

EJ Select records to copy 

Q Copy selected records to output device 

HJ Terminate program 



:> 




OUTPUT 



Output records 
displayed, printed, 
or written on disk 
or diskette 



To: Control Storage End-of-Job 
Transient ($EOJ) 



DESCRIPTION 



MODULE/ 
ROUTINE 



Initialize common communication area ($CCCA). 

Read and syntax check COPYFILE, SELECT, KEY, and END control statement parameters. 

If DELETE parameter specified: 

• Ensure values are valid. 

• Save values specified. 

Process REORG keywork parameter (if any). 

If SELECT control statement given: 

• Process FROM and TO values for SELECT KEY (if given). 

• Process FROM and TO values for SELECT PKY (if given). 

• Process FROM and TO values for SELECT RECORD (if given). 

• Save values specified. 

Process KEY parameters (if any) and save values specified. 

Use AFA access routine to find COPYO statement if PRINT not specified; save attributes in $CCCA. 

Use active file area (AFA) access routine to find COPYIN statement (determines if input from disk or diskette); 
save attributes in $CCCA. 



$COPY 



#USYX 



$COPY 



$COPY 
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DESCRIPTION 



MODULE/ 
ROUTINE 



If print not specified, use AFA access routine to find COPYO statement. 

Set up control for printing if requested. 

Load and pass control to copy initialization phase ($COINT). 

Q If COPYIN for disk (input device is disk): 

► * Allocate input file. 

• Ensure validity of utility statement parameters and file type. 

• Use AFA access routine to find COPYO statement if PRINT not specified. 

• Prepare input and output device DTFs. 

• If PRINT not specified, allocate output file. 

• Load record mode diskette data management (#DRDM). 

• If output is PRINT: 

— Load SYSLIST interface ($COPRT) into main storage if SYSLIST device is printer. 

— Load window display routine ($FEKEY) and $COPY interface routine ($COCRT) into main storage if 
SYSLIST device is display screen. ^^ 

• Load and pass control to input/output interface module ($COGET) and go to|JJ. 

If COPYIN for diskette (input device is diskette): • 

• Allocate input file. 

• Prepare input DTF for diskette. 

• Open input file. 

• Return. 

• Read first sector of diskette file to verify data address. 

• Convert embedded format 1 to AFA format 1 . 

• If output not to print: 

— Prepare output file for diskette. 

— Update COPYO statement in AFA with file input label. 

— Update output DTF. 

— Allocate output file. 

— Load record mode disk data management (#DRDM). 

— Open output diskette file. 

• If output is PRINT: 

— Load SYSLIST interface ($COPRT) into main storage if SYSLIST device is printer. 

— Load window display routine ($FEKEY) and $COPY interface routine ($COCRT) into main storage if 
SYSLIST device is display screen. ^^ 

• Load and pass control to input/output interface module ($COGET) and go tofcj. 

Qj Assign input and output buffer space (output buffer not assigned if output to print). 

Open output DTF if output to file. 

Open input DTF if input from disk file. 

If SELECT or DELETE requested, load record exclusion routine ($COSEL) into main storage, overlaying 
beginning of $COGET. 

Read records from input device. 

If SELECT statement, indicate records to exclude that fall outside range sepcified by FROM and/or TO 
parameters on SELECT statement (range type may be record number, key, or packed key). 

If DELETE parameter, delete record from output file or SYSLIST when specified character appears at specified 
position stated by DELETE parameter on COPYFILE statement (enter $COSEL at $COMIT). 



$COPY 



$COINT 
#CAML 
$COINT 



#CAS1 
SCO I NT 



#CAML 
SCO I NT 
#DMOP 
$COINT 
#DRSM 
$COINT 



#CAS1 

$COINT 

#DMOP 



SCOINT 



$COGET 



#DMOP 



$COGET 



#DRDM 



$COSEL 
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DESCRIPTION 



MODULE/ 
ROUTINE 



£J If not output to PRINT request, write selected records to output device. 

If output to PRINT request and SYSLIST device is printer: 
► • If first time call: 

— Retrieve page and line headings. 

— Initialize headings. 

— Get print image from configuration record to determine valid characters. 

— Print heading line. 

• Put record number or key (if indexed file) into print buffer. 

• Print line from buffer. 

• Convert unprintable characters in record into over/under hexadecimal characters, or if OUTPTX specified, 
convert all characters in record to over/under format. 

• Print records. 

• Print last line including number of output records. 

Continue processing until all selected records printed. 

If output to PRINT request and SYSLIST device is display screen: 

• If first time call: 

— Retrieve heading legends. 

— Initialize heading legend values. 

— Set window display parameters. 
© Output records to display screen. 

• If input file indexed, display key length and position. 

• Display last line including number of output records. 

Continue processing until all selected records displayed. 
Display error messages as necessary. 
gjj Close input and output files (if applicable) when end-of-file reached on input file. 
Transfer control to control storage end-of-job transient ($EOJ). 



#DRDM 



$COGET 



SCOPRT 



#MGRET 



SCOPRT 



Disk IOS 



#CLST 



$COPRT 



#CLST 



$COPRT 



#CLST 



$COPRT 



SCOGET 



SCOCRT 



#MGRET 



SCOCRT 



SFEKEY 



SCOCRT 



#CLXS 



$COGET 
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Program Organization 

Figures 13-1 through 13-4 show the control flow for the 
disk copy/display utility. 



Initiator 
Function 



jl 



Disk 

Copy/Display 

Mainline Phase 

($COPY) 



Syntax 
Checker 

(#USYX) 



Add to 
Diskette 
File Phase 
<$COADD) 



4 



I 



Normal 
Allocate 

(#CAML) 



» 



Common 
Open 

(DMOP) 



Diskette 
Data 

Management 
(#DRSM) 



Disk Data 
Management 

(#DDSM) 



Common 
Close 

(#DMCL) 



fr 



SYSLOG 



(0CLSG) 



End of Job 
($EOJ) 
-Control Storage- 



Figure 13-1. Add To Diskette File (COPYADD) Control Flow <$COPY) 
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Initiator 
Function 



I 



Disk 

Copy/Display 
Mainline 
($COPY) 



o 



Syntax 
Checker 

(#USYX) 



Copy All 
Files Phase 

($COALL) 



I 



Copy 

Initialization 
Phase 
($COANT) 



I 



Sectorized 
File Copy 
Phase 
($COZIP) 



4 



4 



4 



» 



Disk VTOC 
Read/Write 

(0CSVF) 



Diskette 
VTOC 
Read/Write 
(#CSVI) 



Normal 
Allocate 

WCAML) 



Diskette 
Data 

Management 
(#DRSM) 



Common 
Open 

(#DMOP) 



* 



SYSLOG 



(#CLSG) 



+ 



Common 
Open 

(#DMOP) 



* 



Special 
Allocate 

(#CAS1) 



Figure 13-2 (Part 1 of 2). Copy All Files (COPYALL) Control Flow ($COPY) 
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Sectorized 
File Copy 
Phase 
($COZIP) 



Disk 
Data 

Management 
(#DDSM) 



» 



Diskette 
Data 

Management 
(#DRSM) 



Common 
Close 

(#DMCL) 



-O 



JL 



End of Job 
($EOJ) 
-Control Storage- 
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Initiator 
Function 



I 



Disk 

Copy/Display 

Mainline Phase 

($COPY) 



Syntax 
Checker 

(#USYX) 



Copy 

Initialization 
Phase 
($COINT) 



I 



Normal 
Allocate 

(#CAML) 



Common 
Open 

(0DMOP) 



Special 
Allocate 

(#CAS1 ) 



« 



*• 



4 



Sectorized 
File Copy 
Phase 
(SCOZIP) 



SYS LOG 



(#CLSG) 



Diskette 
Data 

Management 
(#DRSM) 



* 



Disk IOS 



Common 
Open 

(#DMOP) 



Diskette 
Data 

Management 
(#DRSM) 



Disk Data 
Management 

(#DDSM) 



• 



Common 
Close 

(#DMCL) 



End of Job 
($EOJ) 
-Control Storage- 



Figure 13-3. Copy Entire File (COPYFILE) Control Flow ($COPY) 
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Initiator 
Function 



I 



Disk 

Copy/Display 

Mainline Phase 

($COPY) 



Syntax 
Checker 

(#USYX) 



Copy 

Initialization 
Phase 
($COINT) 



I 



Normal 
Allocate 

(#CAML) 



fr 



Common 
Open 

(#DMOP) 



Special 
Allocate 

(#CAS1 ) 



* 



fr 



Diskette 
Data 

Management 
(#DRSM) 



Input/Output 
Interface 

($COGET) 



Common 
Open 

(#DMOP) 



4 



» 



Diskette 
Data 

Management 
(#DRDM) 



Record 
Exclusion 
Routine 
($COSEL) 
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Input/Output 
Interface 

($COGET) 



I 



End of Job 
($EOJ) 
-Control Storage- 



SYSLIST 
Interface 

($COPRT) 



* 



Window 

Display 

Routine 

($COCRT) 



4 



4 



4 
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* 



» 



» 



#> 



Message 
Retrieve 

(#MGRET) 



Disk IOS 



SYSLIST 



(#CLST) 



Message 
Retrieve 

(#MGRET) 



Display 
($FEKEY) 
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Data Areas 

VERB LISTS - PYZVL1, PYZVL2, PYZVL3 

There are three verb lists for the disk copy /display utility; 
PYZVL1, PYZVL2,and PYZVL3. 

Each time the syntax checker (#USYX) is called, one of the 
lists must be passed. PYZVL1 is passed on the first call. 
On each subsequent call, the control statement read deter- 
mines the verb list that is passed on the next call. 

The third and fourth bytes of the syntax checker parameter 
list contain the address of the verb list. Figure 13-5 shows 
the format and contents of each verb list. 



SCOPY COMMON COMMUNICATION AREA - $CCCA 

The $COPY common communication area, $CCCA, is an 
area that is initialized by the copy/display mainline 
(SCOPY) and used to pass information among the phases 
of the utility. The area is located at the start of the user 
area in main storage. Figure 13-6 shows the format and 
contents of the communication area. 



Displacement of 

Leftmost Byte Label 

PYZVL1 

1 

2 

3 

4 

PYZVL2 

1 

PYZVL3 

1 

2 

3 
Figure 13-5. PYZVL1, PYZVL2, and PYZVL3 Verb Lists 



Length 
in Bytes 



Description 

COPYFILEverbID 

COPYADDverbID 

COPYALLverbID 

END verb ID 

X'FF' end of verb list 

END verb ID 

X'FF' end of verb list 

KEY verb ID 

SELECT verb ID 

END verb ID 

X'FF' end of verb list 
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Displacement of 




Length in 






Leftmost Byte 




Bytes in 






in Hexadecimal 


Label 


Decimal 


Description 




00 


STTYPE 


1 


Statement type: 

COPYALL X'03' 
read 


= COPYALL statement 



Routines that 
Change Data 

$COPY 



COPYFILE X'04' = COPYF I LE state- 
ment read 

SELECT X'11' = SELECT statement 
read 

KEY X'OA' = KEY statement 

read 

COPYADD X'1 9' = COPYADD statement 
read 



01 



SELCT 



Select statement type: 



$COPY 



BSKEY X'10' = SELECT KEY 

statement read 

BSPKY X'08' = SELECT PKY 

statement read 

BSRCD X'04' = SELECT RECORD 

statement read 



02 



swo 



COPYFILE statement output type: 



$COPY 



03 



SW1 



Figure 13-6 (Part 1 of 6). Copy Communication Area 



BPRTX 


X'C0'=OUTPTX-PRINT 




specified 


BPRT 


X'40'= PRINT specified 


BFILE 


X'20'= OUTPUT-FILE 




specified 


COPYFILE statement reorganization 


parameter 




BRYES 


X'01'= REORG-YES 




specified 


BRNO 


X'00'= REORG-NO 




specified 



$COPY 
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Displacement of 




Length in 






Leftmost Byte 




Bytes in 




Routines that 


in Hexadecimal 


Label 


Decimal 


Description 


Change Data 


04 


SW2 


1 


COPYFILE statement delete parameter 


$COPY 



BDLTE X'40'= Deletion specified 

X'00' = No deletion specified 



05 


SW3 


1 


File group qualifier indicator 


— 


06 


OMPOS 


2 


Position of omit character 


$COPY 


08 


OMCHAR 


1 


Omit character 


$COPY 


09 


KEYLN 


2 


Key length (from //KEY statement or 
format 1 ) 


$COPY,$COINT 


0B 


KEYLOC 


2 


Key location (from //KEY statement or 
format 1 ) 


$COPY,$COINT 


0D 


SFRM# 


3 


From parameter of select record statement 
(initialized to hex 000000) 


$COPY 


10 


STO# 


3 


To parameter of select record statement 
(initialized hex FFFFFF) 


$COPY 


13 


INQ 


1 


Input device Q-code 


$COINT,$COALL, 

$COANT,$COGET, 

$COZIP 


14 


OUTQ 


1 


Output device Q-code 


$COINT,$COALL, 
$COANT,$COZIP, 
$COGET 



15 



CPYIND 



Indicator 



$COGET,$COALL 



IGNORE X'02' = Record to be ignored 
or error recursion through 
$COALL module 









RECALL X'08' = Indicates normal 










recursion through $COALL 










module 




16 


LOLIM 


2 


Address of low key limit 


$COINT 


18 


HILIM 


2 


Address of high key limit 


$COINT 


1A 


FMKEY 


29 


From parameter of select KEY/PKY 
statement (initialized to 29XL1'00') 


$COPY,$COINT f 
$COGET 
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Displacement of 




Leftmost Byte 




in Hexadecimal 


Label 


37 


TOKEY 


54 


PRTOUT 



Length in 

Bytes in 

Decimal Description 



5C 



5E 



60 



62 



64 



6C 



6E 



70 



72 



RCDL 



FMTAFA 



INDTF 



OUTDTF 



INADDR 



UPRLIM 



LWRSAV 



UPRSAV 



COIOA@ 



29 



66 


OUTADR 


2 


68 


WINDO@ 


2 


6A 


LWRLIM 


2 



To parameter of select KEY/PKY statement 
(initialized to 29XLTFE') 



SYSLIST device 



hex 00 = Printer 

hex 20 = Display screen 



Hold area for record length 



AFA format 1 address 



Address of the input file DTF 
(initialized to X'FFFF') 

Address of the output file DTF 
(initialized to X'FFFF') 

Address of input data management 
(#DRDM,#DRSM) 

Address of output data management 
(#DDSM, #DRSM, $COPRT, $COCRT) 

Address of $FEKEY (if loaded) 

Current lower limit of user program area 



Current upper limit of user program area 



Initial lower limit of user program area 



Initial upper limit of user program area 



Address of I/O area for sectorized 
data management 



74 COEOF@ 2 Sector after last data sector on diskette 

Figure 13-6 (Part 3 of 6). Copy Communication Area 



Routines that 
Change Data 

$COPY,$COINT, 
$COGET 

SCO I NT 



SCOINT, SCOANT, 
$COGET, SCOZIP 

SCOINT, SCOANT, 
$COGET,$COZIP, 
$COALL 

SCOINT, SCOANT, 
SCOGET, SCOZIP 

SCO I NT, SCO ANT, 
SCOGET, SCOZIP 

SCOINT, SCOGET, 
SCOANT, SCOZIP 

SCOINT, SCOZIP, 
SCOGET, SCOANT 

SCOINT, SCOGET 

SCOPY, SCOALL, 
SCOINT, SCOANT, 
SCOGET, SCOZIP 

SCOPY, SCOALL, 
SCOINT, SCOANT, 
SCOGET, SCOZIP 

SCOPY, SCOALL, 
SCOINT, SCOANT 

SCOPY, SCOALL, 
SCOINT, SCOANT 

SCOPY, SCOINT, 
SCOANT, SCOALL, 
SCOGET 

SCOINT, SCOZIP 
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Displacement of 




Length in 




Leftmost Byte 




Bytes in 




in Hexadecimal 


Label 


Decimal 


Description 


76 


SVEBKL 


2 


Diskette blc 



78 



79 



7A 



7C 



COINDS 



COINRT 



CFGAFA 



INATTR 



Value of 'DISP' parameter on COPYIN 
file statement 

Value of 'RETAIN' parameter on 
COPYIN file statement 

Address of AFA format 1 for next disk 
file to be saved for save all 

Input file attribute 



7E 


OUTATR 


2 


Output file attribute 


80 


SVEWKB 


2 


Address of I/O work buffer 


82 


COFINB 


2 


Input buffer length — disk 


84 


COFOTB 


2 


Output buffer length — disk 


86 


RDFLCT 


1 


Count of files on diskette 


87 


RDFLMX 


1 


Maximum files 



88 CXDOTA 8 File group identifier 

90 CXDOTL 1 File group identifier length 

Information Related to Files Copied via COPYALL (displacements hex 91 through hex A7): 



91 
93 

94 



ALNDXL 
ALNDXF 

ALCTYP 



Length of index on diskette 

Index indicator: 

F1XMNXSY X'OT = Index requires sort 

Control indicator: 

F1XMCSNG X'00' = Single file copy 
F1XMCALL X'03'= Copy all files 
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Routines that 
Change Data 

$COINT,$COZIP, 
$COANT 

$COPY 



$COPY 



$COPY 

$COINT f $COGET, 
SCOZIP 

$COINT,$COGET, 
SCOZIP 

$COINT,$COGET, 
SCOZIP, $COANT 

SCO ALL 

SCOALL 

SCOGET, SCOZIP, 
SCOALL 

SCOALL, $COI NT, 
SCOZIP 

SCOPY 

SCOPY 



SCOALL, SCOANT 
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Displacement of 




Length in 


Leftmost Byte 




Bytes in 


in Hexadecimal 


Label 


Decimal 


95 


LABALL 


8 


9D 


ALSQNO 


1 


9E 


ALSQND 


1 



9F 
A7 



ALNXLB 
ALDLIB 



Format 1 Save Area 

1C5 COFMT1 

1C9 SVF1IN 



220 



SVF1CO 



A8 


COMXBF 


2 


AA 


RDSCTL 


2 


AC 


RDZIP@ 


2 



AE 


RDPREP 


1 


AF 


CZIPSW 


1 


BO 


RDLAST 


1 


DTFs 






B1 


FDDTF1 


138 


13B 


RDDTF1 


138 



4 
87 

87 
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Description 
COPYALL name 
File sequence number 
File set indicator: 

F1XMOFSC C'C = Not last file 

F1XMOFSL C'L'= Last file 
Next file in set 
Librarian file mode 

X'81' = Sector mode 

X'01'= Record mode 

Track size (in bytes) of diskette 

Sector size (in bytes) of diskette 

Address where sectorized data 
management is loaded; X'FFFF' implies 
not loaded 

Indicator for diskette prepare 

Indicator for sector data management 

Physical format of last diskette processed 

Input DTF #1 
Output DTF #1 



CL4'FMT1' 

Input format 1 plus extension 

Output format 1 



Routines that 
Change Data 



$COINT, $COANT 
$COINT,$COANT 
$COINT,$COANT 

$COINT 

$COPY,$COINT 

$COANT 



$COINT,$COGET, 
$COALL,$COZIP 

$COINT,$COGET, 
$COALL,$COZIP 



$COINT,$COGET, 
$COALL f $COANT 

$COINT,$COANT, 
$COALL 
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Displacement of 




Leftmost Byte 




in Hexadecimal 


Label 


277 


SVFSKL 


2B7 


COF1SZ 


2B8 


C0F1RT 


2B9 


C0F1A1 


2BA 


COF1LC 


Parameter Lists 




2BB 


PYZLOG 



Length in 
Bytes in 
Decimal 

64 

1 

1 
1 



Description 

Format 1 from AFA 

Records/blocks request from COPYO 
statement 

Retention request from COPYO statement 

Attribute byte for spindle preference from 
COPYO statement 



Routines that 
Change Data 

$COALL,$COANT 

$COINT,$COANT 

$COINT,$COANT 
$COINT,$COANT 



Disposition request from COPYO statement $COINT f $COANT 



24 



2D3 


COAVTI 


19 


2E6 


COAVTF 


17 


2F7 


CFGAFA 


2 



SYS LOG 

Space for diskette VTOC read/write 

Space for disk VTOC read/write 

AFA format 1 for next disk file to be 
saved for save all 
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EMBEDDED FORMAT 1 

Each file copied from disk to diskette by the disk copy/ 
display utility has 87 bytes of control information in the 
first diskette sector immediately preceding the initial sec- 
tor containing file data on diskette. This control informa- 
tion is called the embedded format 1 . It is an extension 
and modification of the 64- byte AFA format 1 for the 
file, and it is used to ensure that the file reappears on disk 
with its original attributes. 

The Data Areas Handbook shows the format and contents 
of the embedded format 1 . 



$COPY, $COALL, 

$COINT,$COGET, 

$COANT,$COZIP 

$COINT,$COALL 

$COINT,$COALL 
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Chapter 14. File Delete Utility ($DELET) 



Introduction 

The file delete utility ($DELET) provides a way to free 
space on disk or diskette for use by new files. 

The $DELET utility is called by the DELETE procedure or 
appropriate OCL statements. (See System Support Refer- 
ence Manual for more information about calling and exe- 
cuting $DELET.) 

The file delete utility consists of a mainline phase 
($DELET), a disk file delete phase ($DELF1), a diskette 
file delete phase ($DELI1), and a syntax specification 
module ($DETAB). The program resides in the system 
library. 



Space is freed in the following way: 

• For a SCRATCH control statement, the diskette file(s) 
expiration date is changed to the current job date. For 
disk files, SCRATCH removes the VTOC entry. 

• For a REMOVE control statement, the VTOC entry is 
removed. The contents of the named file(s) on disk or 
diskette is optionally erased by writing over it with 
binary zeros. 

Control is returned to the system by way of the control 
storage end- of- job transient ($EOJ). 

The file delete utility requires 14K bytes of main storage 
for program execution. 
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Method of Operation 

Diagram 14.1 shows the function of the file delete utility. 
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From: Initiator 



INPUT 



Main Storage 



Transient Area 



User Area: 
$DELET 
$DELF1 
$DELI1 



Control statements 
Disk: 

• Index 

• Format 1's 

• Format 5s 
Diskette: 

• Format 1's 

• Volume label 




PROCESS 



:> 



Process control statements 

Perform disk file delete function: 
Process delete — all request 
Process delete — single request 

Perform diskette file delete: 
Process delete — all request 
Process delete — single request 

Terminate program 



OUTPUT 



> 




Disk: 



Updated format 5 
Updated index 
Null format 1 
for specified 
files 

Files data set to 
zeros if 
requested 



Diskette: 



File labels 

deleted or 

expired 

File data areas 

set to zero if 

requested 



To: Control Storage End-of-Job 
Transient ($EOJ) 



DESCRIPTION 


MODULE/ 
ROUTINE 


Q Initialize date to blanks. 

Find syntax checker (#USYX). 


$DELET 


#MASFN 


Use main storage relocating loader (SVC 52) to load #USYX into main storage. 

Read and syntax check control statements and perform requested action until //END statement is read. 

If disk file delete request, go to^J. 




#USYX 


$DELET 


If diskette file delete request, go to|Cj. 




If //END statement, go toQ. 
£J Determine delete function requested. 




$DELF1 


CA Delete-all request specified. 




Examine task control block (TCB) chain to ensure no other task running. 




Examine terminal unit block (TUB) to ensure request from master console. 




Set indicator to skip system files (# LIBRARY). 





Diagram 14.1 (Part 1 of 3). Perform File Delete Utility Function ($DELET) 
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DESCRIPTION 


MODULE/ 
ROUTINE 




Read format 1 's for files to be processed. 

Delete files (also user library if requested): 

• Write zeros over file data extent if erase with DATA-YES specified. 

• Return . 

• Allocate files to be deleted (must allocate files before deallocate can be performed). 

► • Return. 

• Nullify file's format 5, format 1 , and index. 
© Return. 

© Write updated VTOC back to disk. 

fl»B Delete single file specified. 

Del ete f i I e speci f i ed : 

• Get file label (and date if given). 

• Read format 1 for file(s) to be processed. 

• Return. 

• Test for multiple files and issue multifile message (MIC 1621) if necessary. 
© If 3 option taken to multifile message, go tofj. 

• Write zeros over file data extent(s) if erase with DATA-YES specified. 
© Return. 

• Allocate files to be deleted. 
© Return. 

© Null file's format 5, format 1 , and index. 
© Return. 

• Write updated VTOC back to disk. 

Issue error messages if necessary. 

^ Get system date. 

Find diskette device in device allocate table. 

Allocate diskette device. 

Determine delete function requested. 

tEy Delete-all request specified. 

Prepare new diskette. 

Verify diskette's ID. 

Read format 1 for file(s) to be processed. 

If REMOVE request: 

© Write zeros over file data extent if erase and DATA-YES specified. 

► © Display file's data erased message (MIC 1627) if applicable. 

• Zero out format 1 . 

© Remove file label from VTOC. 

© Write updated VTOC back to diskette. 

If SCRATCH request: 

© Set file expiration date to date in program communication area. 

• Write file's label with new expiration date out to diskette. 

Repeat until all files on diskette are deleted. 
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DESCRIPTION 



MODULE/ 
ROUTINE 



/IIC 1628) 



O 



Display message asking for next volume (MIC 1628): 

• If continue option (0) taken, return to 

• If terminate option (2) taken, go to| 

Delete single file specified. 



#CLXS 



$DELI1 



Delete file specified: 

• Find specified file. 

• If PACK specified: 

— Prepare new diskette. 

— Verify volume ID correct for mounted diskette. 

• Read format 1 label for specified file (use date field if date specified). 

• If multivolume file: 

— Check volume sequence. 

— Issue prompts for proper diskettes. 

• If REMOVE request: 

— Write zeros over file data extents if erase and DATA-YES specified. 

— Display file's data erased message (MIC 1627) if applicable. 

— Zero out format 1 . 

— Remove file label from VTOC. 

— Write updated VTOC back to diskette. 

• If SCRATCH request: 

— Set file expiration date to date in program communication area. 

— Write file's label with new expiration date out to diskette. 

• If multivolume file, issue message for next diskette (MIC 1485) and repeat delete until entire file deleted. 



Issue error messages if necessary. 

Pass control to control storage end-of-job transient ($EOJ). 
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Program Organization 

Figure 14-1 shows the control flow for the file delete 
utility. 
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Chapter 15. Diskette Copy Utility ($DUPRD) 



Introduction 

The diskette copy utility ($DUPRD) copies one or all data 
files from one diskette to another diskette. The copied files 
are placed on the output diskette such that all unused space 
follows the data files, except multivolume files remain at 
the same physical position. 

When copying all files, the system user has the option to 
delete expired files. The space previously used by the 
expired files is removed, causing the active files to be con- 
tiguous on the output diskette. 



lase 



The diskette copy utility consists of the $DUPRD ph&ac 
and $DUTAB syntax specification module. The program 
resides in the system library. 



$DUPRD is called by the COPYI1 procedure or appropri- 
ate OCL statements. (See the System Support Reference 
Manual for more information about calling and executing 
$DUPRD.) 

The diskette copy utility does not support copying between 
diskettes of different formats; that is, a standard format 
diskette cannot be copied to an extended format diskette 
or vice versa. The bytes per sector must also be the same. 

The utility requires 14K bytes of main storage for pro- 
gram execution and enough disk space must be available 
to contain the data and control records for the diskette 
files being copied. The system operator may, however, 
take advantage of more main storage by increasing the 
region size beyond 14K bytes. 
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Method of Operation 

Diagram 1 5.1 shows the function of the diskette copy 
utility. 



15-2 



Licensed Material— Property of IBM 



From: Initiator 



INPUT 



Main Storage 



Transient Area 



User Area: 
$DUPRD 



Control statements 
Diskette VTOC 
Diskette files 




PROCESS 



> 



am Process control statements 

3 Initialize internal areas. 

gjj Determine function requested 

■ Copy all diskette files 
3 Copy specific diskette file 

M Terminate program 



o 




OUTPUT 



Diskette files 



To: Control Storage End-of-Job 
Transient ($EOJ) 



Diagram 15.1 (Part 1 of 3). Perform Diskette Copy Utility Function (SDUPRD) 



DESCRIPTION 


MODULE/ 
ROUTINE 


Pi Find syntax checker (#USYX). 

Read and syntax check utility control statements. 

If END card read, go to Qj. 

If COPY 11 card read, go toH ■ 

Issue error message (MIC 1651) if no valid control statement found. 
01 Allocate device for diskette. 

Return. 

Prepare diskette. 

Return. 

Find disk data management (#DDSM) and diskette data management (#DRSM). 

Set I/O buffer size based on unused main storage region size. 
|C] Determine if entire diskette to be duplicated or just one file. 

If COPY-ALL specified, go toQ . 

If COPY-ONE specified, go to Q- 
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DESCRIPTION 



MODULE/ 
ROUTINE 



Q Read all format 1's in diskette VTOC and place in table of modified format 1's (DUPF1TAB) (entire format 1 
not saved). 

If DELETE-Y specified: 

• Check DUPF 1 TAB for expired files. 

• Flag expired files with X'F2'. 

Allocate sufficient disk space to hold all diskette data files specified in DUPF1TAB. 

Return. 

ff& Open disk file just allocated. 

Return. 

Place format 1 of file(s) to be copied into intermediate disk file. 

Set file type based on interchange level in format 1. 

Open diskette file: 

^ • Write active format 1 to AFA. 

• Return. 

• Allocate diskette file. 

• Return. 

• Open diskette file. 

• Return. 

Copy data file(s) from input diskette to intermediate disk based on DUPF1TAB (expired files are not copied). 

Return. 

Reopen disk file (for disk to diskette copy). 

Return. 

Issue halt to mount new diskette (MIC 1647). 

Ensure output diskette same track format as input diskette (bytes per sector): 

• All ocate device for d is kette . 

• Return. 

• Prepare diskette. 

• Return. 

• Issue error message if wrong format (MIC 1653). 

Open output diskette file. 

Return. 

Read record(s) from disk. 

Return. 

Write record(s) to diskette. 

Return. 

Close current diskette file and disk file. 

Return to Q| to read next control statement. 
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DESCRIPTION 



MODULE/ 
ROUTINE 



Find requested format 1 in diskette VTOC and place in DUPF1TAB. 
Return. 

If file name not on diskette, issue halt (MIC 1650): 

* If option taken return toQ to read another control card. 

• If option 1 taken, retry under same control card. 

Allocate sufficient disk space to hold file specified in DUPF1TAB. 
Go to Q^3to perform copy function. 
Pass control to end-of-job transient ($EOJ). 
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Program Organization 

Figure 15-1 shows the control flow for the diskette copy 
utility. 
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Chapter 16. File Build Utility ($FBLD) 



I ntroduction 

The file build utility ($FBLD) provides a way to allocate 
disk files without supplying data records. $FBLD is pri- 
marily used by application writers to create files that can 
be referenced as existing files in following steps. 

$FBLD creates the file with the precise characteristics 
specified in the control statements. The utility is called 
by the BLDFILE procedure or appropriate OCL state- 
ments. (See the System Support Reference Manual for 
more information about calling and executing $FBLD.) 

The file build utility consists of a mainline module 
($FBLD) and a syntax specification module ($FBTAB). 
The program resides in the system library. 
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Method of Operation 

Diagram 1 6.1 shows the function of the file build utility. 
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To: Control Storage End-of-Job 
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DESCRIPTION 


MODULE/ 
ROUTINE 


EOS Clear out work areas and restore DTF. 
Find syntax checker (#USYX). 

Use main storage relocating loader (SVC 52) to load #USYX. 
Read and syntax check control statements. 


$FBLD 


#MASFN 


$FBLD 


#USYX 


If //END.gotoJJ. 
t|^| If spindle specified, move information into DTF. 




$FBLD 


If location given: 




• Scan location value to find length. 




• Convert location to hexadecimal. 




• Multiply value by 10 and place in DTF. 




Move records or blocks information into DTF. 

Issue error message (MIC 2145) if no records or blocks specified. 

If indexed file, set up key position and length. 




#CLXS 


$FBLD 


H*l Load and pass control to special allocate (#CAS1). 
Allocate new file. 
Return tolftllto read next control statement. 
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E8 Pass control to control storage end-of-job transient ($EOJ). 
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Program Organization 

Figure 16-1 shows the control flow for the file build utility. 
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Figure 16-1. File Build Utility Control Flow ($FBLD) 
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Chapter 17. History File Display Utility ($HIST) 



Introduction 

The history file display utility ($HIST) is the mechanism 
whereby entries in the history file are printed or displayed 
to an operator. 

The history file is not a data file but is an area in the system 
area on disk where pertinent operator actions, operator 
communications, and job queue logging are recorded. Each 
such display unit, OCL statement, or operator response 
consists of a line of text associated with an indication 
whether the operator saw the entry before it was put in 
the history file or not and whether the text was a broad- 
cast message or not. 

The text is prefixed by the user identifier (JCBDUSER) 
obtained from the job control block (JCB), the terminal 
identifier (TUBWSID) from the terminal unit block (TUB), 
an 8 byte job name field and a 6 byte time stamp. If, 
however, the entry is from the job queue, no valid user 
identifier or terminal identifier can be supplied. In this 
case, the job name field contains asterisks. 

The indicator fields record whether the text was broad- 
cast or not or seen by the operator or not, and are used to 
record whether the terminal entries came from a work 
station or the system console, and mark entries as required 
for $HIST. Two indicators bytes are at the beginning of 
each entry. The first byte contains the total length of the 
entry and the second byte contains the length of the input 
text. 

$HIST performs the following functions: 

• Prints or displays all entries 

• Prints or displays only entries seen by the operator 

• Prints or displays entries that were not printed or dis- 
played before 

• Reinitializes the history file — making all entries 
unavailable 



The history file can be accessed in two modes. The modes 
are defined as a work station request and a system console 
request. A work station request is from any terminal. A 
system console request is from the master console with the 
SYSTEM parameter specified. 

If the request for any of the above functions is from a 
user at a work station, the entries displayed, printed, or 
made unavailable are restricted to those having both the 
terminal identifier and user identifier matching the work 
station identifier and user identifier of the requester. 

If the request for any of the above functions is from the 
system operator at the master console with the SYSTEM 
parameter specified, access to the history file entries is 
unlimited. 

The history file display utility is called by the HISTORY 
procedure or appropriate OCL statements. (See the System 
Support Reference Manual for information about calling 
$HIST.) 

The $HIST parameters determine how much history file 
information is displayed or printed and whether it may be 
accessed in the future, as follows: 

• ALL implies all entries 

• If ALL is omitted, only those entries seen by the opera- 
tor are accessed 

• RESET implies that the entries are marked as unavail- 
able for any future display or printing 

• If RESET is omitted, the entries are available for further 
display or viewing 

• CURRENT causes entries to be flagged so when 
CURRENT is again specified, only entries not displayed 
before are accessed 

• TEXTONLY implies the user identifier, terminal iden- 
tifier, job name, and time stamp are not displayed 
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$HIST calls the syntax checker to read the DISPLAY and/ 
or END control statement(s) and save the parameters for 
later interrogation. 

The sector address of the sector containing the current 
history file entry is extracted from the system communica- 
tion area (SCA). 

The entries from the sector containing the current entry 
to the end of the history file are read into the history file 
buffer. 

The oldest entry in the history file is always the entry 
logically following the current entry. Beginning with the 
oldest entry, each entry is examined to determine if the 
requester is permitted to display, print, or make it 
unavailable. 

If the entry is to be printed or displayed, a heading line 
containing the user identifier, terminal identifier, job name, 
and time stamp is printed or displayed unless TEXTONLY 
was specified. The text in the entry is printed or displayed 
on a separate line. 

If RESET is specified, each entry that the requester is 
permitted to access is rewritten into the history file with 
the HFTMRSET bit set. The bit is set in the first byte 
(HFTDCTLS) of the indicator field if the system console 
request is specified. The bit is set in the second byte 
(HFTDCTLW) of the indicator field if the work station 
request is specified. 

If CURRENT is specified, then as each entry is printed or 
displayed the HFTMCURR is set in the appropriate indi- 
cator byte (HFTDCTLS or HFTDCTLW) as indicated 
above. 

Access to entries in the history file is controlled by the 
mode (work station or system console) of the requester 
and is further inhibited by the RESET (HFTMRSET) 
and CURRENT (HFTMCURR) bits. 



If a system console request is specified and the RESET 
(HFTMRSET) bit is set in the console (HFTDCTLS) indi- 
cator byte, the entry is unavailable. If the RESET 
(HFTMRSET) bit is set in the work station (HFTDCTLW) 
indicator byte, the entry is accessible. 

If a system console request is specified, the CUR RENT 
parameter is specified, and the CURRENT (HFTMCURR) 
bit is set in the console (HFTDCTLS) byte, the entry is 
not printed nor displayed. 

If the requester is from a work station and the RESET 
(HFTMRSET) bit is set in either of the two indicator 
bytes, the entry is unavailable. 

If the request is from a work station, the CURRENT 
parameter specified, and the CURRENT (HFTMCURR) 
bit is set in the work station (HFTDCTLW) indicator 
byte, the entry is not printed or displayed. 

The history file display utility will issue errors by way of 
system logging if any of the following conditions occur: 

• The SYSTEM parameter is specified from a work sta- 
tion that is not the master console 

• The length of any entry is outside the permissible 
range 

• A permanent I/O error occurs in reading or writing the 
disk 

• The sector address of the sector containing the cur- 
rent entry is not within the history file area 

$HIST requires 14K bytes of main storage for program 
execution. 
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Method of Operation 

Diagram 17.1 shows the function of the history file display 
utility. 
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DESCRIPTION 



MODULE/ 
ROUTINE 



Prepare time stamp for display. 

Display control information and time stamp if TEXTONLY not specified. 

Display history file text. 

Update pointers to indicate current and next entries. 

Write sector just processed back to history file if rewrite required and sector not changed by another task. 

Continue processing until all requested history file entries displayed. 

Retrieve last line legend and place in SYSLIST buffer. 

Place number of output entries in buffer. 

Output SYSLIST buffer to printer. 

Issue error messages as necessary. 

Pass control to control storage end-of-job transient ($EOJ) to terminate program. 
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Program Organization 

Figure 1 7-1 shows the control flow for the history file dis- 
play utility. 
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Chapter 18. Diskette Labeling and Initialization Utility ($INIT) 



Introduction 

The diskette labeling and initialization utility performs one 
of three functions: 

• When the FORMAT or FORMAT2 option is specified, 
formats the diskette by (1) setting the volume ID and 
owner ID, (2) initializing all data to blanks, (3) setting 
the IDs of usable tracks to consecutive numbers, (4) 
setting the IDs of unusable tracks to X'FFFFFFFF', 
(5) assigning sector IDs to usable tracks, and (6) writ- 
ing track zero. 

Note: If FORMAT is specified, single sided diskettes 
are formatted to contain twenty-six 128-byte sectors. 
Double sided diskettes format cylinder 0, head to 
twenty-six 1 28- byte sectors; cylinder 0, head 1 to 
twenty-six 256-byte sectors; and cylinder 1 through 
cylinder 74 to twenty-six 256-byte sectors. If 
FORMAT2 is specified, single sided diskettes format 
cylinder to twenty-six 128-byte sectors and cylinder 
1 through cylinder 74 to eight 512-byte sectors. Double 
sided diskettes format cylinder 0, head to twenty-six 
128-byte sectors, cylinder 0, head 1 to twenty-six 256- 
byte sectors, and cylinder 1 through cylinder 74 to 
eight 1024- byte sectors. 

• When the DELETE option is specified, rewrites the HDR 
labels on cylinder zero, eliminating all references to the 
files on the diskette. 

• When the RENAME option is specified, sets the volume 
ID and the owner ID to the values specified by the VOL 
control statement or to default values if no VOL control 
statement is specified. 



This utility consists of the $INIT phase and $INTAB syntax 
specification module that reside in the system library. 

The diskette labeling and initialization utility is called by 
the IN IT procedure or appropriate OCL statements. (See 
the System Support Reference Manual for more informa- 
tion about calling and executing the $INIT utility.) 

The control statements and the diskette to be initialized 
are the input to the utility. The syntax checker (#USYX) 
is used to read the control statements and check them for 
errors. 

Depending upon the function specified by the control 
statements, the output is (1 ) an initialized diskette with 
an updated VTOC and volume label, (2) an updated VTOC 
in which entries for all files on the diskette have been 
deleted, or (3) a renamed diskette in which the volume ID 
and owner ID in the label have been changed. 

$INIT requires 14K bytes of main storage and exclusive 
control of the diskette resources for program execution. 
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Method of Operation 

Diagram 18.1 shows the function of the diskette labeling 
and initialization utility. 
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^•9 Check for active files (if not new diskette). 

• Get system date from job control block. 

• Read diskette VTOC. 

• Check header record for unexpired date. 

• If files active, issue MIC 1675. 

• If permanent diskette error, issue MIC 1673. 


$INIT 


#MASFN 


#USYX 


$INIT 


Diskette IOS 


$INIT 


#CLXS 


$INIT 


Diskette IOS 


$INIT 


#CLXS 
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DESCRIPTION 


MODULE/ 
ROUTINE 


Test surface for defects: 

• Write IDs with data sectors of all X'E5'. 

• Write data sectors of all blanks to all tracks. 

• Flag entire cylinder as defective if error found. 


$INIT 


Diskette IOS 


$INIT 


Write labels on track zero: 

• Build header records for appropriate diskette type (one sided or two sided). 

• Write records to diskette. 

Go to|Jto rename volume ID and/or owner ID on diskette. 




Diskette IOS 


$INIT 


Note: The FORMAT option formats the diskette to: 

• Single sided diskette — cylinder through cylinder 74 formatted to twenty-six 128-byte sectors. 

• Double sided diskettes: 

— Cylinder 0, head formatted to twenty-six 1 28-byte sectors. 

— Cylinder 0, head 1 formatted to twenty-six 256-byte sectors. 

— Cylinder 1 through cylinder 74 formatted to twenty-six 256-byte sectors. 




The FORMAT2 option formats the diskette to: 

• Single sided diskette: 

— Cylinder formatted to twenty -six 128-byte sectors. 

— Cylinder 1 through cylinder 74 formatted to eight 512-byte sectors. 

• Double sided diskette: 

— Cylinder 0, head formatted to twenty-six 1 28-byte sectors. 

— Cylinder 0, head 1 formatted to twenty-six 256-byte sectors. 

— Cylinder 1 through cylinder 74 formatted to eight 1024-byte sectors. 




Ej Check volume ID: 

► • Read diskette volume label. 

• Issue MIC 1672 if volume ID not same as PACK parameter. 

• Issue MIC 1674 if diskette not formatted. 

Check VTOC for active files (same asQ ^\). 

Write track VTOC (record 8 is inactive file header record). 




Diskette IOS 


#CLXS 


$INIT 


Diskette IOS 


Delete header records 9 through 26. 




If double sided diskette, write header records on cylinder 0, head 1 . 
Go to|JjJ to terminate program. 




$INIT 


J Check for new diskette (not formatted) (same asJJJKjJ). 
Issue MIC 1674 if track not formatted. 

Update volume ID and/or owner-ID fields of volume label: 

• If user supplied valid volume-ID, move volume-ID to new volume LABEL. 

• If user supplied valid owner-ID, move owner-ID to new volume LABEL. 

• If owner-ID still blank, move words OWNER-ID to volume LABEL. 

• Set system identification code in volume LABEL. 

• Write updated volume LABEL to diskette volume. 

Go tojjj to terminate program. 




#CLXS 


$INIT 


Diskette IOS 


$INIT 


(*J Deallocate diskette device in device table. 




Post device waiters (TCBDKTWT). 




Pass control to control storage end-of-job transient ($EOJ). 
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Program Organization 

Figure 18-1 shows the control flow for the diskette labeling 
and initialization utility. 



Initiator 
Function 



» 



« 



Diskette 
Initialize and 
Labeling 
($INIT) 



I 



Single Name 
Find 

(#MASFN) 



4 



Syntax 
Checker 

(#USYX) 



» 



SYSLOG 



(#CLSG) 



End of Job 
($EOJ) 
-Control Storage- 



Figure 18-1. Diskette Labeling and Initialization Utility Control Flow ($INIT) 
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Data Areas 

VERBSUVE, VERBSVE, AND VERBSE VERB LISTS 

There are three verb lists for the diskette labeling and ini- 
tialization utility: VERBSUVE, VERBSVE, and VERBSE. 
Each time the syntax checker (#USYX) is called, one of 
the lists must be passed. VERBSUVE is passed on the first 
call. On each subsequent call, the control statement read 
determines the verb list that is passed on the next call. The 
third and fourth bytes of the syntax checker parameter list 
contain the address of the verb list. Figure 18-2 shows the 
format and contents of each verb list. 



Displacement 






of Byte 


Label 


Description 





VERBSUVE 


UlNverbID 


1 




VOL verb ID 


2 




END verb ID 


3 




X'FF' end of verb list 



VERBSVE VOL verb ID 

1 END verb ID 

2 X'FF' end of verb list 

VERBSE END verb ID 

1 X'FF' end of verb list 

Figure 18-2. VERBSUVE, VERBSVE, and VERBSE 
Verb Lists 



18-6 

Licensed Material-Property of IBM 



Chapter 19. VTOC Display Utility ($LABEL) 



Introduction 

The VTOC display utility displays or prints VTOC informa- 
tion from the disk or a diskette. 

The disk information displayed or printed is: 

• Volume ID and owner ID 

• Disk capacity 

• One or all of the VTOC entries 

• Available disk space 

The diskette information displayed or printed is: 

• Volume ID and owner ID 

• Available diskette space 

• One or all of the VTOC entries 



This utility program consists of the disk VTOC display 
routine ($LABEL), the diskette VTOC display routine 
($LABI1),and the syntax specification module ($LABLS). 
The program resides in the system library. 

The VTOC display utility is called by the CATALOG pro- 
cedure or appropriate OCL statements. (See the System 
Support Reference Manual for more information about 
calling and executing $LABEL.) 

The VTOC display utility requires 14K bytes of main stor- 
age for program execution. 
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Method of Operation 

Diagram 19.1 shows the function of the VTOC display 
utility. 
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From: Initiator 



INPUT 



Main Storage 



Transient Area 



User Area: 
$LABEL 
$LABI1 



Control statements 

Disk or diskette: 

• Volume label 

• VTOC 

• Heading message 
member 

SCA 




PROCESS 



:> 



Process control statements and determine 
function requested 

Display requested disk VTOC information 

Display requested diskette VTOC 
information 

Terminate utility program 



OUTPUT 



> 




Displayed 
information 



Printed 
information 



To: Control Storage End-of-Job 
Transient ($EOJ) 



DESCRIPTION 


MODULE/ 
ROUTINE 


KB Find syntax checker (#USYX). 

Use main storage relocating loader to load #USYX. 
Read and syntax check control statement. 

Determine function requested: ^^ 

• If display disk VTOC requested, go to El ■ 

• If display diskette VTOC requested, go tojcg. 

Qj Get disk VTOC SSS address from system communication area (SCA) and place in IOB. 

Read in system and user format 1s to build table of file start and end SSS addresses (F1TABLE). 
Sort VTOC address table just built (sort by start location). 

Set up header information: 

• Retrieve heading message. 

• Retrieve pack and owner ID. 

• Unpack date. 

• Determine disk capacity from SCA. 

Display or print heading. 


#MASFN 


$LABEL 


#USYX 


$LABEL 


Disk IOS 


$LABEL 


#MGRET 


Disk IOS 


$LABEL 


#CLST 
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DESCRIPTION 


MODULE/ 
ROUTINE 




If request to display a specific file (LABEL-file label): 
© Read specified file entry from F1TABLE. 

• Extract appropriate data from format 1 . 

© Display requested VTOC information on SYSLIST device (display or print). 

• Check for another file with same name and display if found. 

• Calculate available space on disk. 

• Display or print available space amount and location. 

If request to display all VTOC entries (LABEL-ALL): 
^ © Read format 1s from F1 TABLE. 

• Extract appropriate data from format 1 . 

© Display VTOC information on SYSLIST device (display or print). 
© Continue processing each VTOC entry until all entries displayed. 
© Calculate available space on disk. 
© Display or print available space amount and location. 

Display error messages as needed. 

When last VTOC entry processed, go to Jjjto terminate program. 

Bjjfl Find diskette VTOC display routine ($LABI1). 

Use main storage relocating loader (SVC-52) to load $LABI1 into main storage. 

Allocate diskette device. 

Return. 

Read VTOC from diskette. 

Save diskette format and system date. 

Read diskette label track. 

Move volume ID, owner ID, and system date into headings save area. 

Retrieve initial and overflow headings and save for later use. 

Build VTOC entry table: 
^ • Read HDR 1s from diskette. 

• Build entry in VTOC table. 

• Convert and place total sectors used by file in table entry for listing. 
© If two sided diskette, process HDR1 on other side. 

© Mask deleted files. 

© Continue processing until all sectors processed. 

Sort VTOC table entries by starting diskette sector addresses. 

Find last entry not deleted to determine available sectors on diskette. 

Display heading lines on SYSLIST device. 

If no entries to display: 

© Display or print NO ACTIVE FILES message. 
© Display or print END OF DISPLAY message. 
© Go toEJ to terminate program. 


SLABEL 




#CSVF 




$LABEL 




#CLST 




$LABEL 




#CLST 




SLABEL 




#CSVF 


4 


SLABEL 




#CLST 




SLABEL 




#CLST 




#CLXS 




$LABEL 




#MASFN 




$LABEL 




#CAML 




$LABI1 




#CSVI 




$LABI1 




Diskette 




IOS 




$LABM 




#MGRET 




$LABI1 




Diskette IOS 


4 


$LABI1 




#CLST 




$LABI1 
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DESCRIPTION 



MODULE/ 
ROUTINE 



If display all files request (LABEL-ALL): 

• Move display information for each file to print buffer. 

• Display or print file information. 

• Continue processing until all files processed. 

• Display or print END OF DISPLAY message. 

• Go to^Jto terminate program. 

If display specific file request (LABEL-file label): 

• Find specified file in VTOC table. 

• Move display information to print buffer. 

• Display or print file information. 

• Search entire table for every file name specified and display all. 

• Display or print END OF DISPLAY message. 

• Go to F| to terminate program. 

Display error messages as needed. 

Pass control to control storage end-of-job transient ($EOJ) to terminate utility program. 



$LABM 



#CLST 



$LABI1 



#CLST 



$LABI1 



#CLST 



$LABI1 



#CLSG 



$LABELor 
$LABI1 
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Program Organization 

Figure 19-1 shows the control flow of the VTOC display 
utility. 
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Initiator 
Function 



I 



Disk VTOC 
Display 
Routine 
($LABEL) 



4 



I 



4 



End of Job 
($EOJ) 
-Control Storage- 



Single Name 
Find 

(#MASFN) 




Disk VTOC 
Read/Write 

(#CSVF) 



SYSLOG 



(#CLSG) 



Diskette VTOC 
Display Routine 

(SLABI1) 



Syntax 
Checker 

(#USYX) 



Message 
Retrieve 

(#MGRET) 



SYS LI ST 



(#CLST) 



Figure 19-1 (Part 1 of 2). VTOC Display Utility Control Flow ($LABEL) 
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* 



Diskette VTOC 

Display Routine 

($LABI1) 



I 



Normal 

Allocate 

(0CAML) 



» 




Diskette VTOC 
Read/Write 
(#CSVI) 



* 



» 



SYS LOG 
(#CLSG) 



Message 

Retrieve 

(#MGRET) 



« 



* 



SYSLIST 
(#CLST) 



End of Job 
($EOJ) 
-Control Storage- 



Figure 19-1 (Part 2 of 2). VTOC Display Utility Control Flow ($ LABEL) 



19-8 



Licensed Material— Property of IBM 



Chapter 20. Reload Library Utility ($LOADI) 



Introduction 

The reload library utility reloads the system library from 
the backup diskette(s) onto disk. The two major functions 
performed by the utility are the reload command function 
and the reload library function. 

The reload command — reload command routine ($LOADI) 
ensures #LIBRARY exists on the backup diskette, then it 
sets the 'IPL-from-diskette' flag in control storage, loads 
the IPL routine ($IPW), and passes control to the psuedo 
IPL routine ($IPS) which performs a diskette IPL. 

The reload library routine ($LOADI) functions are: 

• Determine the master console 

• Prepare for diskette operations 

• Read the unit definition table (UDT) 

• Test for a valid VTOC and configuration record 

• Issue operator prompts for system options 

• Process the configuration record 

• Allocate system areas 

• Build volume label, IPL record, and configuration record 

• Write library directory and library members to disk 

• Pass control to control storage IPL ($IPS) to perform 
a disk IPL 



The reload library utility ($LOADI) is called by the 
RELOAD procedure or appropriate OCL statements. 
$LOADI passes control to the pseudo IPL routine ($IPS). 
$IPS then performs an IPL diskette. This is essentially 
the same operation performed by setting the MSIPL switch 
on the CE panel to the Diskette position and pressing the 
Load key. For more information about calling and execut- 
ing the reload library utility, see the System Support 
Reference Manual. 

The main storage nucleus initialization routine (#MSNIP), 
the reload library routine ($LOADI), the reload library 
screen format (##FLOD), and messages must be included 
on the first backup diskette in order to run the reload 
library utility. The utility will run dedicated (stand alone) 
while it is replacing the current system library. The utility 
requires 30K bytes of main storage for program execution. 
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Method of Operation 

Diagram 20.1 shows the functions of the reload library 
utility. 
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INPUT 



From: Control Storage IPL 
($IPL)or($IPS) 

m PROCESS 



Main Storage 



Transient Area: 
$LOADI 
work area 



User Area: 
$LOADI 



Diskette: 

• Configuration 
record 

• #MSNIP 

• Library 
directory 

• Library 
members 

System data areas: 

• System VTOC 

• #LIBRARY 
format 1 

• Format 5 

• UDT 




OUTPUT ■ 



> 



J Perform program initialization 
^ Validate VTOC and configuration record 
3 Prompt for system options 
^ Allocate system areas 
[jj Update LCS 
H Write IPL control information to disk 

J Copy library from diskette to disk 
[?1 Terminate program 



>\ 




New library 
directory 

New library member 

Updated system 
data areas: 

• #LIBRARY 
format 1 

• Format 5 

• System VTOC 

• Configuration 
record 

• #MSNIP 




To: Control Storage IPL 
(SIPS) 



DESCRIPTION 


MODULE/ 
ROUTINE 


^M Determine master console for reload: 

• Test console for errors; if error, wait for request — enter sequence from console. 

• Find terminal unit block (TUB) for console. 

Determine disk extent parameters. 

Prepare for diskette operations: 

• Determine diskette sector size. 

• Read diskette volume label. 

• Ensure proper diskette in use. 

Read unit definition table (UDT). 


$LOADI 


Diskette IOS 


$LOADI 


Disk IOS 



Diagram 20.1 (Part 1 of 3). Perform Reload Library Function ($LOADI) 
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DESCRIPTION 


MODULE/ 
ROUTINE 


WM Read disk volume label. 


Disk IOS 


If volume label correct, read configuration record. 




Read system VTOC. 

Verify system format 1s and format 5. 




$LOADI 


Check format 5 for enough space to expand library. 




Determine if user's VTOC must be moved to new area when system areas are allocated. 




Calculate minimum library requirements for directory. 




Calculate minimum system library size. 




If system is in error, build terminal table from UDT. 




^£ Set up prompts based on old system configuration. 
Prompt for: 




Work 


• Directory sectors. 


Station 


• Library blocks. 


IOCH 


• History file tracks. 


(WSIOCH) 


• Task work area tracks. 




• Delete files from VTOC. 




• Use backup configuration record. 

Accept operator response to prompts. 

Check prompt values received against system data. 




WSIOCH 


$LOADI 


WjM Initialize library directory area to X'FF'. 




Initialize history file. 




If delete file request, initialize user VTOC. 




Create ^LIBRARY format 1. 




Create format 1s for system files in system VTOC (SYSWORK, SYSHIST, SYSTASK). 




Calculate new format 5 based on new library size. 
Write system format 1s and format 5 to disk. 
£•£ Update library control sector (LCS) fields based on operator requested ^LIBRARY space allocation. 




Disk IOS 


SLOADI 


Build volume label: 




• Put label ID, owner ID, and volume name in volume label. 

• Write volume label to disk. 

Jjj Set configuration values: 




Disk IOS 


$LOADI 


• Disk size option. 




• Main storage size. 




• Control storage size. 




• Security flag if security file on disk. 

Write #MSNIP and configuration record to disk. 




Disk IOS 


Write terminal information table to disk. 
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DESCRIPTION 



MODULE/ 
ROUTINE 



Copy library directory from diskette to disk: 

• Read backup library directory into I/O buffer. 

• Return. 

• Write library directory from I/O buffer to disk. 

Copy library members from diskette to disk: 

• Read ^LIBRARY members into I/O buffer. 

• Return. 

• Write members from I/O buffer to disk. 

• Return. 

• Issue message to change diskette if necessary. 

Issue reload complete message to operator. 

Initiate pseudo disk-IPL: 

• Evoke control storage loader function. 

• Load and pass control to pseudo control storage IPL ($IPS). 



$LOADI 



Diskette I OS 



$LOADI 



Disk I OS 



SLOADI 



Diskette I OS 



SLOADI 



Disk IOS 



SLOADI 



WSIOCH 



SLOADI 



Diagram 20.1 (Part 3 of 3). Perform Reload Library Function (SLOADI) 
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Program Organization 

Figure 20-1 shows the control flow of the reload library 
utility. 



Control 
Storage 
IPL 



4 



» 



« 



Reload Library 
Routine 
($LOADI) 



» 



Disk I OS 



4 



Diskette I OS 



4 



Work Station 
IOCH 



Figure 20-1. Reload Library Routine Control Flow ($LOADI) 
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Data Areas 



$LOADI COMMUNICATION AREA 

The $LOADI communication area is a 28-byte area that is 
read from the backup diskette into location X'4FCO' in 
storage. It is created by the backup utility and contains 
information that is used by the reload library utility in 
reloading the system library from the backup diskettes. 
Figure 20-2 shows the format and contents of the area. 



Displacement of 




Leftmost Byte 




in Hexadecimal 


Label 





PDIRSECT 


1 


PMEMSECT 


4 


PLIBIND 


5 


PCDATE 


8 


PARMRSVD 


B 


PFILNAM 


13 


PDIRSPC 


16 


PLIBSPC 



19 PSCPSIZE 

Figure 20-2. $ LOAD I Communication Area 



Length 
in Bytes 

1 



Description 

Number of active disk sectors in the directory 

Number of active member disk sectors 

Reserved 

Backup file creation date 

Reserved 

Backup file name 

Number of sectors allocated to the directory 

Number of sectors allocated to the library 

Number of sectors in the SSP base 
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Chapter 21. Library Maintenance Utility ($MAINT) 



Introduction 

The library maintenance utility ($MAINT) performs the 
following four major functions: 

• Allocates libraries 

— Allocates user libraries 

— Changes member size of any library 

— Changes directory size of a user library 

• Compresses a library 

• Deletes members from a library 

• Copies library members: 

— Copies members from a library to a file 

— Copies members from a library to a library 

— Copies members, member names, or library status to 
a display 

— Copies member names from a file to display 

— Copies member from a file to a library 

— Copies members from the reader (SYSIN) to a 
library 

The library maintenance program consists of the following 
driver modules that reside in the system library: 

• Library maintenance mainline ($MAINT) 

• Library specification ($MASPC) 

• Library allocate ($MALOC) 

• Library compress ($MARCK) 

• Library compress - phase 2 ($MAR2K) 

• Library compress — phase 3 ($MAR3K) 

• Library delete ($MADLT) 

• Sector mode file display ($MASDF) 

• Record mode file display ($MARPF) 



• Library print routine ($MADSP) 

• Sector mode library to file copy ($MATFS) 

• Record mode library to file copy ($MARTF) 

• Library to library copy ($MALTL) 

• Sector mode file to library copy ($MATLS) 

• System/32 sector mode file to library copy ($MAF32) 

• Record mode file to library copy ($MARFF) 

• Reader to library copy ($MARDR) 

Note: Additional librarian facility programs are described 
in Chapter 6, System Service. 

$MAINT is the mainline module for the library mainte- 
nance utility. It is loaded and given control when the sys- 
tem operator enters the LOAD $MAINT, RUN OCL state- 
ments. It runs in a 14K region with a logical start address 
of X'C800'. 

Utility control statements following the RUN statement 
request the various functions of the library maintenance 
utility. $MAINT reads and checks the utility control 
statements by calling the syntax checker (#USYX). 
$MAINT builds a library common area (CNTLBMSG) 
from information supplied by the utility control state- 
ments, moves the common area over the first sector of 
itself, and loads the appropriate driver module after the 
common area. 

The loaded module performs the requested function (load- 
ing other modules as required) and then overlays itself with 
the $MAINT module. $MAINT then processes the next 
utility control statement. 

The following is a description of the subfunctions performed 
by the allocate, compress, delete, and copy functions of the 
library maintenance utility. 
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The data areas section of this chapter contains applicable 
storage usage maps. The first map shows the region when 
the $MAINT module is executing. For each unique func- 
tion there is a corresponding storage usage map depicting 
the region when the requested function is being performed. 



Allocate Function ($MALOC): 

• Creates a user library with specified size 

• Increases or decreases the size of an existing library 

• Changes the directory size of a user library (RELOAD 

is used to change the directory size of the system library) 

Compress Function ($MARCK, $MAR2K and $MAR3K): 

© Removes gaps in library member space and updates 
library directory 

• Updates system pointers affected by the compress 
function 

Delete Function ($MADLT): 

• Deletes non-SSP members, or all non-SSP members hav- 
ing a certain name 

• Deletes non-SSP members of one type, or all types hav- 
ing names beginning with certain characters 

• Deletes all non-SSP members of one type or all types 

• Deletes non-SSP members of one type or all types 
except members having certain names or having names 
beginning with certain characters 

• Deletes specified members, including SSP members 



Copy Function: 

• Reader to library ($MARDR) — replaces or adds an S 
or P member from the system input device 

• Library to library ($MALTL): 

— Copies a member of one library type or all library 
types within a library or between libraries, optionally 
changing the member's name in the process 

— Copies members of one type or all types within a 
library or between libraries that have names beginning 
with certain characters 

— Copies members of one type or all types, omitting 
members having a certain name or having names 
beginning with certain characters or omitting all 
SSP members 

— Copies all members of one type or all types from one 
library to another (if type is all, only non-SSP mem- 
bers are copied) 

© Library to file ($M ATFS or $M ARTF) : 

— Copies to a file a member having a certain name, or 
all members with that name 

— Copies to a file members of one type, or all types 
having names beginning with certain characters 

— Copies to a file all members of one type 

— Copies to a file all members of all types, optionally 
omitting members having a certain name or having 
names beginning with certain characters (not includ- 
ing SSP members) 

— Copies to a file members of one type, omitting mem- 
bers having a certain name or having names beginning 
with certain characters, or omitting all SSP members 

— Copies to a file all members with a PTF applies (only 
sector mode - $MATFS) 

— Adds members to an existing file of library members 

— Copies members to a basic exchange diskette file 
(only record mode - $M ARTF) 
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File to library ($MATLS, $MARFF, or $MAF32): 

— Copies members in a file to a library 

— Copies members with special PTF log numbers from 
a file to a library (only sector mode — $MATLS and 
$MAF32) 

— Copies members in a basic exchange diskette file 
directly to a library (only record mode — $MARFF) 

— Copies duplicates of existing members to a library 
Note: When members with PTFs are copied to a 
library, the PTF is logged in the PTFLOG in that 
library. 



After completing processing, the driver module reloads 
$MAINT over the library common area and itself. $MAINT 
reads the next utility control statement and determines the 
function to perform. When it reads an END statement, 
$MAINT calls the end-of-job transient ($EOJ) to termi- 
nate the job step. 

The library maintenance utility is called by the appropriate 
procedure or OCL statements. (See the System Support 
Reference Manual for more information about calling and 
executing $MAI NT.) 



• File to printer ($MASDF or $MARPF) - prints the type 
and name of all members in a librarian file 

• Library to printer ($MADSP): 

— Prints a member or all members having a certain name 

— Prints all members of a certain type 

— Prints members of one type, or all types having names 
beginning with certain characters 

— Prints members of one type or all types, omitting 
members having certain names or having names 
beginning with certain characters, or omitting all 
SSP members 

— Prints directory entries for members of one type 

— Prints directory entries for members of one type or 
all types, omitting entries having certain names or 
having names beginning with certain characters or 
omitting all entries for SSP members 

— Prints all directory entries and the library status 

— Prints the library status 
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Method of Operation 

Diagrams 21 .1 through 21 .7 show the functions of the 
library maintenance utility. 



From: Initiator 



INPUT 




PROCESS 



Format 1's and 
format 5s 



Library format 1 's 

Library directory ] 
and format 1 



Library member 
or information 



Library data 



File data 



Z^>* Allocate a library (Diagram 21.2) 

JL 

_^>* Compress a library (Diagram 21.3) 

4 

Z^>* Delete library members (Diagram 21.4) 

I 

~_^>+ Display library member or information 

((Diagram 21.5) 

_ | ^* Copy library to file or library to library 

| (Diagram 21.6) 

~Z^>+ Copy file to library or reader to library 

i (Diagram 21.7) 



1 f 



OUTPUT 



*^ Allocated or 
I changed library 

^^ Compressed library 



I 



I I 



[J^ Deleted library 
directory entry 



*^> Displayed or 
I printed data 

^^ Copied file or 
I library member 

~_^^ Library member 




To: Control Storage End-of-Job 
Transient ($EOJ) 



Diagram 21.1. Overview of Library Maintenance Utility 
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From: Initiator 



INPUT 



V 



,XR1 

CNTLBMSG 
Main Storage 



Transient Area 



User Area: 
$MAINT 
$MALOC 



Library common 
area 

Control statements 

Library format 1 's 

Disk format 5s 

LCS 




PROCESS 



> 



| Interpret control statement and build 
library common area 

Qj Process CREATE NEW USER LIBRARY 
request 

B1 Process CHANGE LIBRARY MEMBER 
SIZE request 

Q Process CHANGE DIRECTORY SIZE 
request 

El Read next control statement 



> 




OUTPUT 



New library 

Updated: 

• Format 1's 

• Format 5s 

• LCS 

• Library directory 



To: Control Storage End-of-Job 
Transient ($EOJ) 



DESCRIPTION 


MODULE/ 
ROUTINE 


Q Read and syntax check utility control statement. 

If END statement, call control storage end-of-job ($EOJ). 

Process LIBRNAME parameter: 

• Ensure library exists (if CREATE not given). 

• Save library format 1 address. 

Move save area (library common area) to beginning of $MAINT (X'C800'). 
Load library allocate module ($MALOC) following save area (X'C900'). 
H Ensure specified library name is valid. 
Ensure specified directory size is valid. 
Allocate disk space. 
Return. 

Issue error message if file name already exists or insufficient space. 
Note: Format 1 and VTOC format 5 updated by #CAS1 . 


#USYX 


SMAINT 


#MAFLB 


$MAINT 


$MALOC 


#CAS1 


$MALOC 


#CLXS 


$MALOC 
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DESCRIPTION 


MODULE/ 
ROUTINE 


Move new file specification block (FSB) from file FSB chain to library FSB chain. 

Initialize library control sector (LCS). 

Write LCS to library. 

Return. 

Write format 1 to VTOC. 

Initialize entire directory to X'FF's. 

Write directory, PTFLOG directory entry, and one PTFLOG sector to disk. 
K 1 Read LCS for library to be changed. 

Return. 

Compare directory if needed. 

Ensure size change requested is within acceptable range. 

If size increase request: 

• Attempt to allocate space after library. 

• Return. 

• Write LCS back to disk. 

• Return. 

• Write format 1 to VTOC. 

• Return. 

• Issue halt if space not available. 

If size decrease request: 

• Read format 5s from disk. 

• Return. 

• Update and write format 5s back to disk. 

• Return. 

• Update and write format 1 's to disk. 

• Return. 

• Update LCS and write to library. 

• Return. 

• Issue error message if not able to decrease library size. 

fa If directory size decrease request: 

• Ensure size decrease possible. 

• Update relative disk address in each directory entry to agree with new start address. 

• Write updated directory to disk. 

• Return. 

• Write LCS to disk. 

• Return. 

• Issue error message if not able to decrease size. 

If directory size increase request: 

• Attempt to allocate space ahead of library. 

• Return. 

• Update LCS and write to disk. 

• Return. 

• Write format 1 's to VTOC. 

• Return. 

• Shift directory (left) to new location. 

• Update disk address relative to directory start. 

• Return. 

• Issue halt if space not available. 


$MALOC 


Disk IOS 


SMALOC 


@CSVF 


$MALOC 


Disk IOS 


$MALOC 


$MACMP 


$MALOC 


#CAS1 


$MALOC 


Disk IOS 


$MALOC 


@CSVF 


$MALOC 


#CLXS 


$MALOC 


Disk IOS 


$MALOC 


Disk IOS 


@CSVF 


$MALOC 


Disk IOS 


$MALOC 


#CLXS 


$MALOC 


Disk IOS 


$MALOC 


Disk IOS 


$MALOC 


#CLXS 


$MALOC 


#CAS1 


SMALOC 


Disk IOS 


$MALOC 


@CSVF 


$MALOC 


$MACMP 


$MALOC 


#CLXS 
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From: Initiator 



INPUT 



C 



CNTLBMSG 
Main Storage 



Transient Area: 
$MAR3K 



User Area: 
$MAINT 
$MARCK 
$MAR2K 



Library common 

area 

Control statements 

Library, format 1's 

LCS 




r 



PROCESS 



> 



Interpret control statements and build 
library common area 

Remove gaps in library member space 
and update library directory 

Update system pointers affected by 
compress function 

Read next control statement 



> 




OUTPUT 



Compressed library 

Updated: 

• LCS 

• Library directory 

• System pointers 



To: Control Storage End-of-Job 
Transient ($EOJ) 



DESCRIPTION 


MODULE/ 
ROUTINE 


^J Read and check syntax of utility control statement. 

If END statement, call control storage end-of-job ($EOJ). 

Process LIBRNAME parameter: 

• Ensure library exists. 

• Save library format 1 address. 

Move save area (CNTLBMSG) to beginning of $MAINT (X'C800'). 
Load library compress module ($MARCK) following save area (X'C900'h 
^£ Ensure exclusive use of library to be compressed (first pass only). 

If # LIBRARY, ensure dedicated system. Suspend command processor 

Read library control sector (LCS). 

Run compactor to remove deleted directory entries. 

Build matrix table from library directory information. 

Build hole table from matrix table information. 

Move library member sectors across gaps indicated in hole table. 


#USYX 


$MAINT 


#MAFLB 


$MAINT 


$MARCK 


$MAR3K 


Disk IOS 


$MACMP 


SMARCK 


Disk IOS 
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DESCRIPTION 



MODULE/ 
ROUTINE 



Update LCS to show regained member space. 

Update library directory (relative addresses) using hole table information. 

Write LCS and directory back to disk. 

Load library compress phase 2 ($MAR2K) over $MARCK (X'C900'). 

Bel Update message member addresses in job control block (JCB). 

Update menu member pointers in JCB. 

If any procedures active, update message member and procedure disk addresses in program procedure save area 
(PPSA), using hole table information. 

If not #LIBRARY, go toflQ. 

Update SSP message member addresses in system communication area (SCA). 

Update format index tables and WTG tables in SSP modules. 

Update system transient table in control storage. 
KA If second pass needed, reload $MARCK and go to mm. 

Dequeue library just compressed. 

If # LIBRARY, restart command processor. 
n Load $MAI NT back into user area at location X'C800'. 

Read next control statement. 

When END read, call end-of-job ($EOJ). 



$MARCK 



Disk IOS 



$MARCK 



$MAR2K 



#MAXRF 



$MAR2K 



$MAINT 
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F 



From: Initiator 



INPUT 



^-XR1 



CNTLBMSG 
Main Storage 



Transient Area 



User Area: 
$MAINT 
$MADLT 



Library common 
area 

Control statement 

Library directory 

LCS 

Library format 1 




PROCESS 



> 



Interpret control statement and build 
library common area 

Find library directory entry(s) to delete 

Delete specified library directory entries 

Read next control statement 



> 




OUTPUT 



Deleted library 
directory entries 

Updated LCS 



To: Control Storage End-of-Job 
Transient ($EOJ) 



Diagram 21.3 (Part 1 of 2). Perform Library Maintenance — Delete Function ($MAINT) 



DESCRIPTION 


MODULE/ 
ROUTINE 


II Read and syntax check utility control statements. 
If END statement, call end of job ($EOJ). 

Process LIBRNAME parameter: 

• Ensure library exists. 

• Save library format 1 address. 

Encode and save NAME and OMIT parameters. 
Move save area (CNTLBMSG) to beginning of $MAINT (X'C800'). 
Load library delete module ($MADLT) following save area (X'C900'). 
If deleting ALL or SSP from # LIBRARY, ensure proper dedication 
F8 If deleting ALL from a user library, ensure only one user. 
Read library control sector (LCS) from disk. 
Load librarian find routine ($MALFN) into main storage. 


#USYX 


$MAINT 


#MAFLB 


$MAINT 


$MADLT 


Disk IOS 


$MADLT 
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DESCRIPTION 



MODULE/ 
ROUTINE 



Determine and save information for librarian find routine: 

• Library type (0,R,S, or P). 

• Library name, partial name, or ALL. 

• If SSP modules. 

• OMIT parameter, if any. 

Find directory entries of modules to be deleted and pass entry addresses back to $MADLT. 
Check returned entry for delete request. 

Delete module if delete specified: 

• Set total number of sectors in directory entry to zero to show entry deleted. 

• Update active and available directory entry count. 

• Delete PTF information if necessary. 

Write LCS back to disk. 

Issue error message if unable to delete requested module. 

Load $MAINT back into user area at location X'C800'. 

Read next control statement. 

When END read, call control storage end of job ($EOJ). 



$MADLT 



$MALFN 



$MADLT 



$MAPTF 



Disk IOS 



#CLXS 



$MADLT 



$MAINT 
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From: Initiator 



INPUT 



V 



XR1 

CNTLBMSG 
Main Storage 



Transient Area 




User Area: 
$MAINT- 
$MADSP 
$MASDF - 
$MARPF 



Library common 

area 

Control statements 

Library: 

• Directory & 
Members 

• Control sector 
(LCS) 

File: 

© Record mode 

library mbr. 
© Sector mode 

library mbr. 



PROCESS 



r 



OUTPUT 



Interpret control statements and build 
library common area 

Print library directory entries, library 
members or status information 

Display type and name of each source or 
procedure member in record mode file 

Display type and name of library members 
in sector mode file 

Read next control statement 



> 



Requested display 
on SYSLIST 
device 




To: Control Storage End-of-Job 
Transient ($EOJ) 



Diagram 21.4 (Part 1 of 4). Library Maintenance — Display Function ($MAINT) 



1 



DESCRIPTION 


MODULE/ 
ROUTINE 


|§E Read and syntax check utility control statement. 
If END statement, call end-of-job ($EOJ). 


#USYX 


$MAINT 


Process LIBRNAME parameter (if displaying from a library): 

© Ensure library exists. 

• Save library format 1 address. 




#MAFLB 


$MAINT 


Encode and save NAME and OMIT parameters (if any). 




If RECL parameter given, set record mode switch and if not given, set record length to 8. 




If copy from library: 

© Move save area (CNTLBMSG) to beginning of $MAINT (X'C800'). 
© Load library print routine ($MADSP) following save area (X'C900'). 
© GotoQj. 





Method of Operation 21-! 1 



Licensed Material— Property of IBM 



DESCRIPTION 



MODULE/ 
ROUTINE 



If copy from file: 

• Determine if device is disk or diskette. 

• Allocate specified file. 

• Move save area (CNTLBMSG) to beginning of $MAINT (X'C800'). . 

• If record mode, load record mode file display routine ($MARPF) following save area (X'C900') and go tol 

• If sector mode, load sector mode file display routine ($MASDF) following save area (X'C900') and go tol 

Q Load librarian find routine ($MALFN) into main storage. 
Load SYSLIST (#CLSP or #CLSW). 
Allocate printer (#CLST calls printer allocate). 
Read configuration record to get print image. 
Return. 

Retrieve all headings. 
Get date for headings from job control block (JCB) and get time. 

If request to print status information: 

• Get library control sector (LCS). 

^ • Compact library directory if necessary. 

• Return. 

• Get status information heading messages and put in print buffer. 

• Convert LCS data to printable data. 

• Print library status information. 



If request to print directory entries: 

• Find directory entries to display. 

• Put directory entries in work area and indicate names to omit. 

• Convert hexadecimal to printable characters. 

• Print headings and specified directory entries. 



If request to print library members: 

• Find directory entries to display. 

• Put directory entries in work area and indicate names to omit. 

• Format directory entries to printable characters. 

• Print specified directory entries. 



• If module is type O or R, convert binary data to dump-format. 

• If module is type S or P, get source or procedure (S or P) modules. 

• Print specified library members. 

Note: Directory entry is printed followed by associated library member. Then next directory entry and member. 

Display messages as needed. 

Go tojjjto read next control statement. 

Load SYSLIST (#CLSP or #CLSW). 

Retrieve heading messages. 

Get date and time. 



$MAINT 



#CMAL 



$MAINT 



SMADSP 



Disk IOS 



SMADSP 



#MGRET 



SMADSP 



Disk IOS 



$MACMP 



SMADSP 



#MGRET 



SMADSP 



#CLSP 

or 
#CLSW 



$MADSP 



SMALFN 



$MADSP 



#CLSP 

or 
#CLSW 



SMADSP 



SMAFLN 



#CLSP 

or 
#CLSW 



SMADSP 



@MASYL 



#CLSP 

or 
#CLSW 



#CLXS 



SMADSP 



SMARPF 



#MGRET 
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DESCRIPTION 


MODULE/ 
ROUTINE 




► Determine device type (diskette or disk): 

• If diskette, load diskette data management (#DRDM) into main storage. 

• If disk, disk data management (#DDDM) is resident. 

Open input file. 

Print headings previously retrieved. 

Read COPY record from input file (diskette or disk). 

^\ Check record for valid copy control statement. 
Print type and name from copy control statement. 

Return. 

Read records from file (diskette or disk) until CEND control record is read. 

If another COPY control statement is read, return toEj%j^ . 
Close input file. 

Go tofcjto read next control statment. 
gl Load SYSLIST (#CLSP or #CLSW). 
Retrieve heading messages. 
Get date and time 

^ Determine device type (diskette or disk): 

• If diskette, load diskette sector data management (#DRSM) into main storage. 

• If disk, load disk sector data management (#DDSM) into main storage. 

Open input file. 

Return. 

Read data from specified file and place in output buffer. 

Put file name in headings. 
Print headings. 

Find next control record and check validity. 


$MARPF 


4 


#DMOP 




#CLSP 

or 
#CLSW 




#DRDM 

or 
#DDDM 




$MARPF 




#CLSP 

or 
#CLSW 




$MARPF 




#DRDM 

or 
#DDDM 




$MARPF 




#DMCL 




$MARPF 




$MASDF 




#MGRET 




$MASDF 


4 


#DMOP 




$MASDF 




#DRSM 

or 
#DDSM 




$MASDF 




#CLSP 

or 
#CLSW 




$MASDF 
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DESCRIPTION 



MODULE/ 
ROUTINE 



Display type and name. 

Return. 

When end-of-file is reached, close file. 

Go toElto read next control statement. 

Load $MAINT back into user area at location X'C800'. 

Read next control statement 

When END read, control storage call end of job ($EOJ). 



#CLSP 

or 
#CLSW 



$MASDF 



#DMCL 



$MASDF 



$MAINT 



Diagram 21.4 (Part 4 of 4). Library Maintenance — Display Function ($MAIIMT) 
21-14 

Licensed Material— Property of IBM 



From: Initiator 



INPUT 




PROCESS 



User Area: 
$MAINT- 
$MALTL 
$MARTF 
$MATFS 



Library common 
area 

Control statements 

Library: 

• Directory and 
Members 

• Control sector 
(LCS) 



Interpret control statements and build 
library common area 

Copy library to file in record mode 

Copy library to file in sector mode 

Copy library to library 

Read next control statement 



, 



OUTPUT 




Library control 
block 

Library file con- 
taining library 
member (s) 

Library containing 
copied library 
members 



To: Control Storage End-of-Job 
Transient ($EOJ) 



Diagram 21.5 (Part 1 of 3). Perform Library Maintenance — Copy FROM — Library Functions ($MAINT) 



DESCRIPTION 


MODULE/ 
ROUTINE 


II Read and syntax check utility control statements. 

If END statement, call control storage end-of-job ($EOJ). 


#USYX 


$MAINT 


Process FROM parameter: 

• Ensure library exists. 

• Save library format 1 address. 




#MAFLB 


$MAINT 


Encode and save NAME and OMIT parameters (if any). 




If RECL parameter given, set record mode switch and if not given, set record length to 8. 




Determine if device is disk or diskette. 




If copy from library to file: 




• Determine if copy to new file or add to existing file. 
► • Allocate file. 

• Ensure RECL valid (if applicable). 

• Issue error messages if necessary. 

• Move save area (CNTLBMSG) to beginning of $MAINT (X'C800'). 




#CAML 


$MAINT 


#CLXS 


SMAINT. 


• If record mode, load record mode from library to file copy routine ($MARTF) following save area (X'C900') 
and go to^J. 
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DESCRIPTION 


MODULE/ 
ROUTINE 


• If sector mode, load sector mode from library to file copy routine ($MATFS) following save area (X'C900') 
and go tojcj. 

If copy from library to library: 

• Ensure valid parameters specified. 

• Move save area (CNTLBMSG) to beginning of $MAINT (X'C800'). ^^ 

• Load library to library copy routine ($MALTL) following save area (X'C900') and go toQ- 

££ Use included source get routine (#MASYL) and load librarian find routine ($MALFN) in main storage. 

Determine device type (diskette or disk): 

• If diskette, load record mode diskette data management (#DRDM) into main storage. 

• If disk, record mode disk data management (#DDDM) is resident. 

Open output file. 

Return.. 

Find directory entry of library member to be copied. 

Move type (S or P) and directory name into copy control statement. 

Write copy control statement to file (disk or diskette). 

Return. 

Get records from library member. 

Return. 

Write record to file. 

Write CEND to file when at end of each member. 

Continue processing until all requested members copied to file. 

Display error messages as necessary. 
Close output file. 

Go tofcjto read next control statement. 
£| Load library sector get/put routine ($MAPGS) and librarian find routine ($MALFI\I) into main storage. 

Determine device type (diskette or disk): 

• If diskette, load diskette sector data management (#DRSM) into main storage. 

• If disk, load disk sector data management (#DDSM) into main storage. 

Set DTF attributes for required function. 

Open output file. 

Return. 

Find directory entry of library member to be copied. 

Move directory entry and PTF data (if any) into data management buffer. 

Get library member sectors and place in data management buffer. 

Continue processing until buffer is full. 


$MAINT 


$MARTF 


#DMOP 


$MARTF 


$MALFN 


$MARTF 


#DDDMor 
#DRDM 


$MARTF 


@MASYL 


$MARTF 


#DDDMor 
#DRDM 


$MARTF 


#CLXS 


#DMCL 


$MARTF 


$MATFS 


#DMOP 


$MATFS 


$MALFN 


$MATFS 


$MAPGS 


$MATFS 
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DESCRIPTION 


MODULE/ 
ROUTINE 


Write buffer to file (disk or diskette). 

Continue processing until all requested members copied to file. 

Display error messages as necessary. 

Close output file. 

Go toljto read next control statement. 

Q| Load sector get/put ($MAPGS), librarian find ($MALFN), librarian open/close ($MALCO), and library 
directory fast insert ($MAFIR) into main storage. 

Set up buffer to receive library directory and member. 

Find directory entry of library member to copy. 

Return. 

Open member being copied (FROM library). 

Issue halt if copying SSP load member to system library and system not dedicated, or copying SSP load 
member to a user library. 

If name not ALL, move partial or full new name into library control block (LCB). 

If first member in a stack, enque library directory and read LCS. 

Move PTF data from FROM LCB to TO LCB. 

Open library member being created (TO library). 

Retrieve library member sectors from FROM library and place in buffer. 

Copy library member sectors from buffer to TO library. 

Return. 

Close library member. 

When stack is full or all members are processed: 

• Call fast insert to update directory. 

• Return to function mainline. 

• Write LCS. 

• Dequeue library directory. 

Continue processing until all requested library members copied to TO library. 
Display error messages as necessary. 
Go tofcjto read next control statement. 
El Load $MAINT back into user area to location X'C800'. 
Read next control statement. 
When END read, call control storage end-of-job ($EOJ). 


#DDDMor 
#DRDM 


SMATFS 


#CLXS 


#DMCL 


SMATFS 


SMALTL 


SMALTL 


SMALFN 


SMALTL 


SMAPGS 


#CLXS 


SMALTL 


Disk IOS 


$MAPGS 


SMALTL 


SMALCO 


SMALTL 


SMAFIR 


SMALTL 


Disk IOS 


SMALTL 


#CLXS 


SMALTL 


SMAIIMT 
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From: Initiator 




PROCESS 

Interpret control statements and build 
library common area 

Copy sector mode file to library 

Copy record mode file to library 

Copy System/32 sector mode file to 
library 

Copy from reader to library 

^| Read next control statement 



> 



OUTPUT 



Library control 
sector 

Library directory 

Library members 




To: Control Storage End-of-Job 
Transient ($EOJ) 



DESCRIPTION 


MODULE/ 
ROUTINE 


KjH Read and syntax check utility control statements. 
If END statement, call end of job ($EOJ). 


#USYX 


SMAINT 


Process TO parameter: 

• Ensure library exists. 

• Save library format 1 address. 




#MAFLB 


$MAINT 


Encode NAME and OMIT parameters (if any). 




If RECL parameter given, set record mode switch and if not given, set record length to 8 (120 if reader). 




Determine if device is disk or diskette. 




Ensure RECL valid (if applicable). 
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DESCRIPTION 


MODULE/ 
ROUTINE 


If copy FROM file, allocate file. 
Issue error messages if necessary. 
Move save area (CNTLBMSG) to beginning of $MAINT (X'C800'). 

Load appropriate COPY routine into main storage following save area (X'C900'): 

• If copy sector mode file to library, load $MATLS and to tod . 

• If copy record mode file to library, load $MARFF and go to KJ. 

• If copy System/32 sector mode file to library, load $MAF32 and go tofiJ . 

• If copy from reader to library, load $MARDR and go toKJ. 

£] Load library sector get/put ($MAPGS), librarian open/close ($MALCO), and librarian directory fast 
insert ($MAFIR) routines into main storage. 

Determine device type (disk or diskette): 

• If disk, load disk sector mode data management (#DDSM) into main storage. 

• If diskette, load diskette sector mode data management (#DRSM) into main storage. 

Set DTF attributes for requested function. 
Open input file. 

Read control records, PTF information, and data records from file and place in buffer (use disk or diskette 
data management as appropriate). 

If an SSP object (0) module is being copied to system library, ensure system is dedicated. 

If an SSP load module is copied to a user library, issue warning. 

Enqueue the library. 

Read the library control sector (LCS) into main storage. 

Open library and member being copied. 

Copy member sectors from buffer to library. 

Continue processing until member copied to library. 

Close library member. 

When stack is full or all members processed: 

• Call fast insert to update directory. 

• Return to routine mainline. 

• Write LCS. 

• Dequeue library directory. 

Continue processing members until entire file copied to library or error encountered. 

Issue error messages as necessary. 

If SSP members copied to system library, run cross reference resolver to update where-to-go (WTG) 
table and format index tables. 

Update system transient table. 

Close file. 


#CAML 


#CLSG 


SMAINT 


$MATLS 


#DMOP 


#DDSMor 
#DRSM 


SMATLS 
$MATLS 


FDIOS 


$MAPGS 


$MATLS 


$MALCO 


$MATLS 


$MAFIR 


$MATLS 


FDIOS 


SMATLS 


#CLXS 


#MAXRF 


$MATLS 


#DMCL 
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DESCRIPTION 


MODULE/ 
ROUTINE 


Go total to read next control statement. 

gcj Load library record put ($MAPUR), librarian open/close ($MALCO),and librarian directory insert ($MALIL) 
routines into main storage. 

Determine device type (disk or diskette). 

• If diskette, load diskette record mode data management (#DRDM) into main storage. 

• If disk, disk data management (#DDDM) resident in main storage. 

Set DTF attributes for requested function. 

Open input file. 

Get COPY record from file and place in buffer (use disk or diskette data management as appropriate). 

Check copy control record syntax. 

Open library for member in file. 

Get record from file member and place in buffer (use disk or diskette data management as appropriate). 

Copy member record from buffer to library. 

Continue processing member record until CEIMD record is read or error occurs. 

Close library member. 

Continue processing until all file members copied to library, end-of-file reached, or error condition 
encountered. 

Issue error messages as necessary. 

Close input file. 

Go toBiflto read next control statement. 

E|flfl Load library sector get/put ($MAPGS), librarian open/close ($MALOC),and librarian directory insert 
(SMALIL) routines into main storage. 

Determine device type (disk or diskette): 

• If disk, load disk sector mode data management (#DDSM) into main storage. 

• If diskette, load diskette sector data management (#DRSM) into main storage. 

Set DTF attributes for requested function. 

Open input file. 

Return. 

Read control records, PTF information, and data from file and place in buffer (use disk or diskette data 
management as appropriate). 

Convert System/32 directory entries to System/34 directory entries and put in library control block (LCB). 

Put System/32 PTFs in PTF LOG. 

If SCP (System/32) member, do not copy to System/34 library (issue halt). 

Open library and member being copied. 


$MATLS 


$MARFF 


#DMOP 


#DDDM or 
#DRDM 


$MARFF 


$MAPUR 


#DDDM or 
#DRDM 


$MAPUR 


$MARFF 


$MAPUR 


$MARFF 


#CLXS 


#DMCL 


$MARFF 


$MAF32 


$MAF32 


#DMOP 


$MAF32 


#DDSM or 
#DRSM 


$MAF32 


#CLXS 


$MAPGS 



Diagram 21.6 (Part 3 of 4). Perform Library Maintenance — Copy TO — Library Functions ($MAINT) 
21-20 

Licensed Material— Property of IBM 



DESCRIPTION 



MODULE/ 
ROUTINE 



Copy member sectors from buffer to library. 

If source or proc member, convert compression format. 

Continue processing until file member copied to library. 

Update directory and close library member. 

Continue processing file members until entire file copied to library or error encountered. 

Issue error messages as necessary. 

Close file. 

Go tollJ to read next control statement. 

Load SYSIN (#CLSS) at location X'DDOO'. 

Load library record put ($MAPUR) and librarian open/close ($MALCO) before SYSIN in main storage. 

Calculate SYSIN record buffer address (buffer also used by record put and insert transient). 

Ensure valid name parameter specified. 

Open library for new member. 

Return. 

Get record (data from keyboard or procedure) using SYSIN. 

Check for CEND record: 

• If CEND not read, put record to library and continue processing records. 

• If CEND read, close library. 

If no source records entered before CEND, issue halt. 

Go to El to read next control statement. 

Load $MAINT back into user area at location X'C800'. 

Read next control statement 

When END read, all control storage end of job ($EOJ). 

Note: $EOJ can be called by $MATLS, $MAF32, $MARFF, and $MARDR when SYSLOG returns 3 
option halt. 



$MAPGS 



$MAF32 



$MALCO 



$MAF32 



#CLXS 



#DMCL 



$MAF32 



$MARDR 



$MAPUR 



$MARDR 



#CLSS 



$MARDR 



$MAPUR 



#CLXS 



$MARDR 



$MAINT 
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Program Organization 

Figures 21-1 through 21-6 show the control flow of the 
library maintenance utility. 
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Initiator 
Function 



I 



4 



Library 
Maintenance 
Mainline 
($MAINT) 



«l 



I 



4 



End of Job 
($EOJ) 
-Control Storage- 



» 



» 



4 



Cancel 



Syntax 
Checker 

(#USYX) 



Find a 
Library 

(#MAFLB) 



Library 
Allocate 

($MALOC) 



1 Disk VTOC 
I Read/Write 

I 
(@CSVF) 



4 



4 



4 



Special 
Allocate 

(#CAS1 ) 



» 



SYSLOG 



(#CLSG) 



* 



Disk IOS 



» 



Directory 
Compactor 

($MACMP) 



Figure 21-1. Library Maintenance — Allocate Function Control Flow ($MAINT) 
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Figure 21-2. Library Maintenance — Compress Function Control Flow (SMAINT) 
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Figure 21-3. Library Maintenance — Delete Function Control Flow ($MAINT) 



Program Organization 21-25 



Licensed Material— Property of IBM 



Initiator 
Function 



I 



Library 
Maintenance 
Mainline 
($MAINT) 




Syntax 
Checker 

(#USYX) 
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Figure 21-4 (Part 1 of 2). Library Maintenance — Display Function Control Flow ($MAINT) 
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Note: $MADSP, $MASDF, and $MARPF can call $EOJ with SYSLOG 3 option halt. 
Figure 21-4 (Part 2 of 2). Library Maintenance — Display Function Control Flow ($MAINT) 
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Figure 21-5 (Part 1 of 2). Library Maintenance - Copy FROM-Library Functions Control Flow ($MAINT) 
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Librarian 
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Librarian 
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Note: $MATFS, $MARTF, and $MALTL can call $EOJ with SYSLOG 3 option halt. 

Figure 21-5 (Part 2 of 2). Library Maintenance — Copy FROM-Library Function Control Flow ($MAINT) 
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Figure 21-6 (Part 1 of 2). Library Maintenance - Copy TO-Library Function Control Flow ($MAINT) 
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($MARDR) 



Library 
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Routine 
($MAPUR) 



Disk Data 
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Data 

Management 
(#DRDM) 



SYSLOG 
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Common 
Close 

(#DMCL) 



Library 
Record Put 
Routine 
($MAPUR) 
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Note: $MATLS, $MAF32, $MARFF, and $MARDR can call $EOJ with SYSLOG 3 option Halt. 
Figure 21-6 (Part 2 of 2). Library Maintenance — Copy TO-Library Function Control Flow ($MAINT) 
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Data Areas 

LIBRARY COMMON AREA - CNTLBMSG 

The library common area, CNTLBMSG, is a 256-byte area 
that begins at location X'C800'. It is created by the library 
mainline routine ($MAINT) and used as a communication 
area for the library maintenance routines. Figure 21-7 
shows its format and contents. 



Displacement of 




Length in 




Leftmost Byte 




Bytes in 




in Hexadecimal 


Label 


Decimal 


Description 





LBFROMNM 


8 


Library name 


8 


LBFROM 


1 


From parameter 

X'20'=F1 (LIBRARY) 
X'21'= Disk (FILE) 
X'22' = Reader 


9 


LBFROMLB 


2 


F1 address if first byte is X'20' 


B 


LBLIB 


1 


Member type 0, R,S, P 
X'23' = System 
X'27' = AII 


C 


LBNAME11 


11 


Member name 1 



17 
1F 
20 
22 
2A 



LBTONM 

LBTO 

LBTLB 

LBNEW 

LBOMIT11 



2 

8 

11 



To parameter or X'25' = Print 

New name 
Names to omit 1 



If no name is present, the first (leftmost) byte of this field contains one of the following flags: 

X'27' = AII 
X'23' = System 
X'24' = Directory 

If a partial name is present-, the eighth byte of this field contains the length of the partial name. 
Figure 21-7 (Part 1 of 2). CNTLBMSG Library Common Area (SMAINT) 



Routines that 
Change Data 

$MAINT 

$MAINT 



$MAINT 
$MAINT 



$MAINT 

$MAINT 

$MAINT 
$MAINT 
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Displacement of 
Leftmost Byte 
in Hexadecimal 


Label 


Length in 
Bytes in 
Decimal 


Description 


35 


LBRETAIN1 


1 


Retain flag 
P=Permanent 
R=Replace 
S=SSP (can be deleted) 


36 


LBRECL 


1 


Record length X'20' or X'28' 
through X'78' 



Routines that 
Change Data 

$MAINT 



$MAINT 



37 


LBFILE 


8 


File name 


$MAINT 


3F 


LBSIZE 


2 


Number of blocks — total 


$MAINT 


41 


LBINCR 


2 


Number of blocks — increase 


$MAINT 


43 


LBDECR 


2 


Number of blocks — decrease 


$MAINT 


45 


LBDIRSIZ 


2 


Number of sectors for directory size 


$MAINT 


47 


LBPTF 


5 


Decimal PTF ID number 


$MAINT 


4C 


LBADD 




Add to existing file 


$MAINT 


4D 


LBDEV 




Device code 


$MAINT 


4E 


LBCREATE 




Create new 


$MAINT 


4F 


LBLOC 




Spindle preference 


$MAINT 


50 


LBBASIC 




Basic exchange format for new diskette 


$MAINT 


51 


LBMRT 




MRT procedure 


$MAINT 


52 


LBHIST 




Log OCL from procedure 


$MAINT 


59 


LBBLOCK 


7 


Block number for location by block 


$MAINT 


5A 


LBPDATA 


1 


Data for procedure 


- 


5B 


- 


43 


Reserved 


- 


86 


LBDMDTF 


128 


DTF passed to drivers using 


$MAINT 



data management 



Figure 21-7 (Part 2 of 2). CNTLBMSG Library Common Area ($MAINT) 
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When $MAINT gets control: 



When $MAINT is executing: 



X'C800' 



$MAINT 



#USYX - syntax checker 



X'C800' 



If necessary < 



SMAINT 



$MALFN 



Buffer for $MALFN 



Figure 21-8 (Part 1 of 15). Library Maintenance Utility Storage Maps 
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Figure 21-8 (Part 2 of 15). Library Maintenance Utility Storage Maps 
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For library compress: 



X'C800' 
X'C900' 



Control bucket then used for LCS buffer 



$MARCK 



Hole table 



Matrix table 



I/O buffer 



X'C800' 
X'C900' 



For 2nd 
phase of 
library 
compress 



For the system library additional processing is necessary. 
The storage maps for the additional processing are below. 
If another compress pass is needed, $MAR2K loads 
$MARCK rather than $MAINT. 
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Table built by #MAXRF 



Figure 21-8 (Part 3 of 15). Library Maintenance Utility Storage Maps 
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$MAXNT — Table of system transients 



Copy of system transient table 
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For library member delete: 



For library to display copy: 



X'C800' 
X'C900' 



Control bucket 



$MADLT 



$MALFN 



Buffer for PTF handler 



LCS buffer 



Buffer for $MALFN 



Figure 21-8 (Part 4 of 15). Library Maintenance Utility 
Storage Maps 
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Figure 21-8 (Part 5 of 1 5). Library Maintenance Utility 
Storage Maps 
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For librarian file to display copy: 



For sector mode library to a file copy: 



X'C800' 
X'C900' 



Control bucket and DTF 



$MASDF 



#CLSP for SYSLIST to print or 
#CLSW for SYSLIST to CRT 



#DDSM for disk or 
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I OB for data mgmt. 
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Figure 21-8 (Part 6 of 15). Library Maintenance Utility 
Storage Maps 



For record mode librarian file to display copy: 
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Control bucket & DTF 
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#DRDM for diskette (disk data mgmt. 
for record mode is resident) 



I OB for data mgmt. 



Buffer 



Figure 21-8 (Part 7 of 15). Library Maintenance Utility 
Storage Maps 
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Buffer 



Figure 21-8 (Part 8 of 15). Library Maintenance Utility 
Storage Maps 
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For record mode library to a file copy: 



For library to library copy: 



X'C800' 
X'C900' 



Control bucket & DTF 
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for record mode is resident) 
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Figure 21-8 (Part 9 of 15). Library Maintenance Utility 
Storage Maps 
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For sector mode file to a library copy: When $MAFIR is 
called, the part of the region indicated is pushed to disk. The 
map on the right is the result. When $MAFIR is finished, 
the pushed area is restored. 
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$MATLS 
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Figure 21-8 (Part 11 of 15). Library Maintenance Utility Storage Maps 
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For SSP load members copied to the system library, 
additional processing is necessary. The storage maps for 
the additional processing are given below. 



X'C800' 
X'C900' 



Control bucket & DTF 
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X'C900' 


Control bucket & DTF 


$MATLS 


$MATLS 




$MALCO 


$MALCO 
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#MAXRF 
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#MAXNT — Table of system transients 


Table built by #MAXRF 


Copy of system transient table 





Figure 21-8 (Part 12 of 15). Library Maintenance Utility Storage Maps 
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For record mode file to a library copy: 



For S/32 sector mode file to a library copy: 



X'C800' 
X'C900' 



Control bucket & DTF 



$MARFF 



SMAPUR 
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LCS buffer 



#DRDM for diskette (disk data mgmt. 
for record mode is resident) 



I/O work buffer 



I OB for data mgmt. 



Buffer 



Figure 21-8 (Part 13 of 15). Library Maintenance Utility 
Storage Maps 
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Figure 21-8 (Part 14 of 15). Library Maintenance Utility 
Storage Maps 
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For reader to library copy: 



/\ oouu 
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Figure 21-8 (Part 15 of 15). Library Maintenance Utility Storage Maps 
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Chapter 22. Message Build Utility ($MGBLD) 



Introduction 

The message build utility ($MGBLD) creates message load 
members in a disk library. A message load member is a 
special library load member from which the system support 
program retrieves the text associated with the message 
identification code (MIC) specified by the calling program. 

The message build utility formats message text records 
from message text statements in a source member. The 
utility places the formatted message text records into a 
work file, allocates disk space for the message member, 
and copies the formatted messages from the work file 
to the message load member on disk. 

The message build utility consists of the $MGBLD phase 
and $MGTAB syntax specification module. The program 
resides in the system library. 



$MGBLD is called by the CREATE procedure or appropri- 
ate OCL statements. (See the System Support Reference 
Manual for more information about calling and executing 
$MGBLD.) 

Each sector in the message load member begins with a 
2-byte MIC followed by the message text. To issue a mes- 
sage, a program indicates the MIC associated with the 
required message and uses the message retrieve routine 
(#MGRET) to retrieve the message text. 

$MGBLD requires 14K bytes of main storage for program 
execution. The system operator may, however, take 
advantage of more main storage by increasing the region 
size beyond 14K bytes. 
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Method of Operation 

Diagram 22.1 shows the function of the message build 
utility. 
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Open DTF 
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Disk library: 

• Control record 

• Message text 
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PROCESS 



Check source member validity 
I Build message member in work file 
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OUTPUT 
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Diagram 22.1 (Part 1 of 2). Perform Message Build Utility Function ($MGBLD) 



DESCRIPTION 


MODULE/ 
ROUTINE 


Q Find syntax checker (#USYX). 

Read and syntax check control statements. 

Save REPLACE and SSP parameters in library control block (LCB) for message member. 

If user library specified, find library. 

Return. 

Find source member in user library or ^LIBRARY as appropriate. 

Get source member from library. 

Process source member control statement checking for errors. 

Save message member name and level in LCB. 


#MASFN 


#USYX 


$MGBLD 


#MAFLB 


$MGBLD 


#MASFN 


@MASYG 


$MGBLD 
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DESCRIPTION 



MODULE/ 
ROUTINE 



If REPLACE not specified, ensure message member does not already exist. 

Return. 

£J Allocate work file on disk. 

Return. 

Perform dummy open for work file. 

Calculate number of work blocks needed to contain work file, then assign largest possible extents. 

Read message text statement from input source member. 

Convert MIC to packed decimal format. 

Build message records in I/O buffer in format required by #MGRET. 

Write message text from buffer to work file as buffer becomes full. 

Close work file for output: 
• Set up delimiter record. 
► • Write out any data left in work buffer to work file. 

1 Set up work file for sector input by changing IOB fields. 

Set up I/O buffer. 

Find library sector get/put routine (#MAPGS). 

Set up message member as object member in library. 

Set up work file IOB for sector input and message member LCB for sector output. 

Fill I/O buffer with sectors from work file. 

Return. 

Write sectors from I/O buffer to message member. 
I Issue error messages as needed. 

Pass control to control storage end-of-job transient ($EOJ) to return control to system. 



#MASFN 



$MGBLD 



#CAS1 



$MGBLD 



#DMOP 



$MGBLD 



@MASYG 



$MGBLD 



Disk IOS 



$MGBLD 



Disk IOS 



$MGBLD 



#MASFN 



#MGBLD 



Disk IOS 



$MGBLD 



#MAPGS 



#CLXS 



$MAPGS 
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Program Organization 

Figure 22-1 shows the control flow of the message build 
utility. 



Initiator 
Function 



Message 
Build 
Utility 
($MGBLD) 



| Source 

i Library Get 

I Routine 

| (@MASYG)J 



I 



End of Job 
($EOJ) 
-Control Storage- 



4 



4 



« 



SYSLOG 



(#CLSG) 



Syntax 
Checker 

(#USYX) 



Special 
Allocate 

(#CAS1) 




» 



» 



» 



Single Name 
Find 

(#MASFN) 



Find a 
Library 

(#MAFLB) 



Open 
(#DMOP) 



Library 
Sector 
Get/Put 
($MAPGS) 



Figure 22-1. Message Build Utility Control Flow ($MGBLD) 
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Chapter 23. Disk Reorganization Utility ($PACK/$FREE) 



Introduction 

The disk reorganization utility reorganizes disk files so that 
free space is accumulated into one area. The utility uses 
one of two base modules: 

• $PACK provides functional S/32 compatibility; it is 
called by the COMPRESS procedure or by user OCL. 

• $FREE is the S/34 disk reorganization utility; it is called 
by user OCL and allows the user to specify the spindle 
and the location of the compressed free area. 

The utility consists of four phases: $PACK or $FREE, 
$FRE1, $FRE2, and $FRE3. Each phase resides in the sys- 
tem library and performs its function before overlaying 
itself (either totally or partially) with the next phase. 

$PACK/$FREE creates a table named FRETB that contains 
the start and end sector addresses for the current files on 
disk. (See Figure 23-2 for a description and contents of 
FRETB.) FRETB entries are then sorted in ascending 
sequence by start sector addresses. $PACK/$FREE deter- 
mines the next phase to call: 

• If COMPRESS ALL or HIGH is specified, $FREE loads 
and passes control to $FRE1 

• If COMPRESS LOW is specified, $FREE loads and 
passes control to $FRE2. 



$FRE1 or $FRE2 moves the files so they begin at the high- 
est or lowest (as requested) possible sector addresses and 
all unused space is accumulated at the lowest or highest sec- 
tor addresses. 

$FRE1 may call $FRE2 if COMPRESS ALL was speci- 
fied. $FRE1 and $FRE2 call $FRE3 to update the disk 
form at- 5s. 

$FRE3 rebuilds the format-5s to reflect the new disk usage. 
$FRE3 also indicates in the system communication area 
that file compression is complete and then passes control 
to end of job ($EOJ). 

The disk reorganization utility takes necessary precautions 
to recover data if a system failure occurs. The utility may 
require rerunning to recover data not permanently in place. 
If I PL is required to restart the system, the utility is auto- 
matically invoked when necessary. 

The disk reorganization utility is called by the COMPRESS 
procedure or by appropriate OCL statements. (See the 
System Support Reference Manual for information about 
calling and executing this utility.) 

The disk compress utility requires 14K bytes of main stor- 
age for program execution. The utility must run dedicated 
and the request must be from the system console. 
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Method of Operation 

Diagram 23.1 shows the function of the disk reorganization 
utility. 
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From: Initiator 



■ INPUT 



c 



XR2 
FRETB 
Main Storage 



Transient Area 



User Area: 

$PACK/$FREE 
$FRE1 
$FRE2 
$FRE3 



Disk VTOC 
Disk files 
SCA 




PROCESS 



> 



Initialize start and end table (FRETB) 
Sort FRETB table entries 
Compress free space 
Update format 5s 
Terminate program 



OUTPUT 



> 



Disk files 
Disk VTOC 




To: Control Storage End-of-Job 
Transient ($EOJ) 



Diagram 23.1 (Part 1 of 2). Perform Disk Reorganization Function ($PACK/$FREE) 



DESCRIPTION 


MODULE/ 
ROUTINE 


Kl Find syntax checker (#USYX). 

Read and syntax check control statements. 

Check for dual spindle support. 

Save disk VTOC address in FRETB. 

Read #l_IBRARY format 1 (AFA format 1). 

Put begin and end extend in first entry of F1TABLE (in FRETB). 

Use end extend from ^LIBRARY format 1 to indicate start of A1 user area. 

Read system format 1s. 

Develop start and end addresses from system format 1s and place in FRETB. 

Read User format 1s. 

Develop start and end addresses from user format 1s and place in FRETB. 


#MASFIM 


#USYX 


$PACK/ 
$FREE 


Disk IOS 


$PACK/ 
$FREE 


Disk IOS 


$PACK/ 
$FREE 
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DESCRIPTION 



MODULE/ 
ROUTINE 



KB Sort FRETB table entries in ascending order by start sector addresses. 

Indicate compress is in process, in case of system failure: 

• Read format 5s from disk. 

• Save restart information in format 5 and macro save area. 

• If restart in process, replace present request with prefailure request. 

• Write updated format back to disk. 

Determine module to load next: 

• If compress-all-or-high request, load $FRE1 and go to(Cj. 

• If compress-low request, load $FRE2 and go to(Cj. 

£j Set high and low limits for spindle A1 and spindle A2. 

Locate applicable gaps on requested spindles (first entry in FRETB address table is ^LIBRARY format 1 
and second entry is first user format 1 ). 

Compute gap and file sizes. 

Read format 1s corresponding to files to be moved. 

Update format 1 with information needed to move data: 

• If restart, show new TO/FROM address and sectors yet to be moved. 

• Indicate if file must be moved in segments (file larger than gap). 

• Update start of data and start of index (if indexed file). 

Write updated format 1s back to disk. 
Return. 

Move data from old disk location to new disk location: 

• Read data into I/O buffer. 

• Write data from I/O buffer to new location. 

Determine module to load next: 

• If compress low load $FRE2 and return to|jC|. 

• If rebuild format 5, load $FRE3, and go to Q. 

Q Read format 5s into main storage. 

Update format 5s to reflect new disk usage. 

Write updated format 5s back to disk. 

Indicate compress complete in system communication area (SCA). 
^2 Pass control to control storage end-of-job ($EOJ). 
Note: Call #CLSG to issue messages as required. 



$PACK/ 
$FREE 



Disk IOS 



$PACK/ 
$FREE 



Disk IOS 



$PACK/ 
$FREE 



$FRE1 or 
$FRE2 



#CSVF 



$FRE1 or 
$FRE2 



#CSVF 



$FRE1 or 
$FRE2 



Disk IOS 



$FRE1 or 
$FRE2 



Disk IOS 



$FRE3 



Disk IOS 



$FRE3 
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Program Organization 

Figure 23-1 shows the control flow of the disk reorganiza- 
tion utility. Figure 23-2 shows the displacement equates 
for the format 1 table. 



Initiator 
Function 



Disk 
Reorganization 



$PACK/$FREE 



Disk 

Reorganization 
Compress Free 
Space High 
($FRE1) 



~r 



|$FREE Only| 






IE 



**© 



**@ 



0- 



» 



* 



Cancel 



Syntax 
Checker 



(iCUSYX) 



Disk 

Reorganization 
Compress Free 
Space Low 
($FRE2) 



I 



Disk 

Reorganization 
Update 
Format-5 
($FRE3) 



End of Job 
($EOJ) 
-Control Storage- 



4 



0H 



» 



0H 



0- 




!_ 



System Find 



(#MASFN) 



Disk VTOC 
Read/Write 



(#CSVF) 



Disk IOS 



SYSLOG 



(#CLSG) 



Figure 23-1. Disk Reorganization Utility Control Flow ($PACK/$FREE) 
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Data Areas 

FRETB TABLE 

FRETB is a table containing start and end addresses of each 
file on disk. It is created by $PACK or $FREE and is refer- 
enced by $FRE1, $FRE2, and $FRE3. FRETB begins at 
the start of the user area. Figure 23-2 shows a diagram of 
the save area and format 1 table within FRETB as well as 
the contents of SAVEAREA and F1TABLE. 

Displacement Equates for Save Area 



Displacement of 




Leftmost Byte 




in Hexadecimal 


Label 





PAKPPSAT 


1 


PAKDSKST 



Length 




in Bytes 


Description 


1 


Procedure nesting level 


1 


Disk status save area: 



PAKSPNDL 



X'8n' = dual spindle 
X'nO' = 9 megabyte disk 
X'nT= 13 megabyte disk 

Spindle request indicator: 



PAKFREE 



PAKSYNTX 
PAKLSTE@ 
PAKACTF1 



Figure 23-2 (Part 1 of 2). FRETB- File Start and End Address Table 



ALL, X'06' = Request for 'compress 

all' 
A1 , X'04' = Request for spindle A1 
A2, X'02' = Request for spindle A2 

Free space request indicator: 

HI LOW, X'03' = Request for 'com- 
press all' 

HIGH, X'02' = Request for free 
space high 

LOW, X'01 ' = Request for free 
space low 

Syntax save area 

Address of last entry in SSS table 

Number of active f- 1 's (files) 



23-6 



Licensed Material— Property of IBM 



Displacement of 




Leftmost Byte 




in Hexadecimal 


Label 


A 


PAKVTOC@ 


OD 


PAKSTRA1 


10 


PAKSTRA2 



Length 
in Bytes 

3 

3 

3 



13 PAKENDA2 3 
Displacement Equates for Format 1 Table 

2 PAKBEGEX 3 

5 PAKENDEX 3 

7 PAKSDISP 2 

8 PAKSPPRF 1 

8 PAKELDSP 1 

Figure 23-2 (Part 2 of 2). FRETB-File Start and End Address Table 



Description 

Start SSS of disk VTOC 

Start address of A1 user area 

Start address of A2 user area or end SSS 
address +1 of A1 if A2 not supported 

End SSS address +1 of A2 user area 



Beginning extent displacement 
End extent displacement 
VTOC sector displacement 
Spindle preference displacement 
Element swap displacement 
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Chapter 24. Security File Utilities 



Introduction 

Three security file utilities provide security file mainte- 
nance for the System/34 customer. The security file 
utility ($PROF) updates the security file. The security 
file save utility ($PRSV) copies the security file from disk 
to diskette thus providing a backup copy. The security 
file restore utility ($PRST) copies the backup security file 
from diskette to disk. 

$PROF allows the security officer to: 

• Add or delete system and work station operators to 
the security file 

• Change the work station and system operator passwords 

• Change the security officer's own password 
$PROF allows the master security officer to: 

• Add or delete security officers 

• Change the security officer's password 

• Allocate a new security file if a larger security file is 
desired 



The security file utilities are called by the appropriate OCL 
statements or procedures. The procedures are: 

• PROF to invoke $PROF 

• PRSAVE to invoke $PRSV 

• PRESTOR to invoke $PRST 

Password security must be in effect on the system before 
the security file utilities can be run. The system operator 
must also have the proper security clearance to execute the 
requested utility function. 

$PROF, $PRSV, and $PRST each require 14K bytes of 
main storage for program execution. 

For more information about calling and executing the 
security file utility programs, see the System Support 
Reference Manual. 
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Method of Operation 

Diagrams 24.1 through 24.3 show the functions of the 
security file utilities. 
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From: Initiator 



p INPUT 



Main Storage 



Transient Area 



User Area: 
$PROF 



Screen formats 

User responses 

Security file 

TCB 
TUB 
SCA 




PROCESS 



> 



y| Perform utility initialization 

3 Display OPTION screen and determine 
option selected 

I Display EDIT screen and perform 
requested function 

• Page through security file 

• Edit security file 

Q Display ADD screen and accept new 
records 

3 Display NEW Fl LE screen and allocate 
new security file 

Urn Terminate program 



OUTPUT 



:> 



Option display 

Requested display: 

• EDIT 
© ADD 

• NEW FILE 

Updated security 
file 

New security file 




To: Control Storage End-of-Job 
Transient ($EOJ) 



DESCRIPTION 



MODULE/ 
ROUTINE 



Check system communication area (SCA) to ensure security active (SCAMSEC). 
Check terminal unit block (TUB) to ensure proper user ID and security class. 
Issue error messages if necessary. 
Open work station DTF. 
Initialize security file pointers. 
Display OPTIONS screen. 

Accept operator response: 

• If option 1. EDIT.qo tojcl. 

• If option 2, ADD, go to Q. 

• If option 3, NEWFILE, goto 0. 

• If option 4, END, go to Rj. 



$PROF 



#CLXS 



#DMOP 



$PROF 



#DWDM 



$PROF 



Diagram 24.1 (Part 1 of 2). Perform Security File Utility Function ($PROF) 
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DESCRIPTION 


MODULE/ 
ROUTINE 


gjj Ensure security file defined. 

Get sector (4 records) from security file. 
Return. 

Display EDIT screen and accept operator request: 

• If F, FORWARD request, increment pointer into security file and return tojcjto process next security 
file sector. 

• If B, BACK request, decrement pointer into security file and return toQto process previous security 
file sector. 

© If C, CANCEL request, return to^Jto display OPTIONS screen. 

• If R, RETURN, reset pointer to start of security file and return tojtjto process first sector. 

• If 1, ID advance, find SSS of sector containing requested ID and return tojcjto process sector. 

• If U, UPDATE: 

— If D entered, write cleared record to security file after checking user authority. 

— If update, write updated record to security file after checking user authority. 

Return. 

Issue error messages if necessary. 

Return togCjto display updated sector. 

BOI Ensure security profile defined. 

Display ADD screen and accept operator input: 

© If U, UPDATE, write new record to security file after finding space and checking user authority. 

° If C, CANCEL, return tojjto display options screen. 

Issue error messages if necessary. 

EP1 Ensure user is master security officer. 

Display NEW FILE screen and accept operator input: 

• If C, CANCEL, return tojj to display options screen. 

• If U, UPDATE: 

— Check input validity. 

— If user enters new override user-ID and password: 

a. Read the library member #PRSD. 

b. Insert the new override user-ID and password. 

c. Write #PRSD backto ^LIBRARY. 

— If user requests new security file: 

^ a. Deallocate old security file if one exists. 
Return. 

b. Allocate new security file from new data. 
Return. 

c. Write record for master security officer into new security file. 

d. Update security file size in configuration record. 

— If user requests new master security officer user-ID or password only: 

a. Read master security officer record. 

b. Insert new user-ID and password. 

c. Write master security officer record back to security file. 

d. Return to E|to display options screen. 

BBS Close work station DTF. 

Pass control to control storage end-of-job transient ($EOJ). 


$PROF 


Disk IOS 


$PROF 


#DWDM 


$PROF 


Disk IOS 


$PROF 


#CLXS 


$PROF 


#DWDM 


$PROF 


#CLXS 


$PROF 


#DWDM 


$PROF 
$PROF 


Disk IOS 


$PROF 


Disk IOS 


$PROF 


#CAD1 


$PROF 


#CAS1 


$PROF 


Disk IOS 


$PROF 


#Disk IOS 


$PROF 


#Disk IOS 


$PROF 


#DMCL 


$PROF 
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From: Initiator 



INPUT 



Main Storage 



Transient Area 



User Area: 
$PRST 



Diskette security 
file 

SCA 

TCB 

TUB 




PROCESS 



> 



Restore security file from diskette 
to disk 



> 




OUTPUT 



Disk security 
file 



To: Control Storage End-of-Job 
Transient ($EOJ) 



Diagram 24.2 (Part 1 of 2). Perform Security File Restore Utility Function (JPRST) 



DESCRIPTION 


MODULE/ 
ROUTINE 


Q Check system communication area (SCA) to ensure security active (SCZMSEC). 
Check terminal unit block (TUB) to ensure proper user ID and security class. 
Issue error message if any. 
Allocate diskette file. 
Return. 

Read VTOC from disk. 
Update VTOC format 1 for security file. 
Write updated VTOC back to disk. 
Return. 

Open diskette DTF and read first buffer. 
Check for errors (see note). 
Allocate old security file on disk. 
Return. 

Open disk DTF. 
Return. 


$PRST 


#CLXS 


#CAML 


$PRST 


#CSVF 


$PRST 


#CSVF 


$PRST 


#DMOP 


$PRST 


#CAS1 


$PRST 


#DMOP 


$PRST 
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DESCRIPTION 



MODULE/ 
ROUTINE 



Read security file from diskette into I/O buffer. 

Return. 

Write security file from I/O buffer to disk. 

Return. 

Close diskette file. 

Issue error message as necessary. 

Pass control to end of job transient. 

Note: $PRST must ensure diskette file is valid before special allocate of old disk file. Special allocate 
clears the disk file. 



#DRSM 



$PRST 



#DDSM 



$PRST 



#DMCL 



#CLXS 



$PRST 



Diagram 24.2 (Part 2 of 2). Perform Security File Restore Utility Function (#PRST) 
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From: Initiator 



INPUT 



Main Storage 



Transient Area 



User Area: 
$PRSV 



Disk security 
file 

SCA 

TCB 

TUB 




PROCESS 



1^> | n Save security file on diskette 



£> 




OUTPUT 



Diskette security 
file 



To: Control Storage End-of-Job 
Transient ($EOJ) 



DESCRIPTION 


MODULE/ 
ROUTINE 


Q Check system communication area (SCA) to ensure security active (SCAMSEC). 
Check terminal unit block (TUB) to ensure proper user ID and security class. 
Issue error message if necessary. 
Allocate diskette file. 
Return. 

Read VTOC from disk. 
Update VTOC format 1 for security file. 
Write update VTOC back to disk. 
Return. 

Allocate security file on disk. 
Return. 

Open disk and diskette DTF's. 
Return. 

Read security file from disk into I/O buffer. 
Return. 


$PRSV 


#CLXS 


#CAML 


$PRSV 


#CSVF 


$PRSV 


#CSVF 


$PRSV 


#CAS1 


$PRSV 


#DMOP 


$PRSV 


#DDSM 


$PRSV 



Diagram 24.3 (Part 1 of 2). Perform Security File Save Utility Function ($PRSV) 
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DESCRIPTION 



MODULE/ 
ROUTINE 



Write security file from I/O buffer to diskette. 

Return. 

Close disk file. 

Issue error messages as necessary. 

Pass control to end of job transient. 



#DRSM 



$PRSV 



#DMCL 



#CLXS 



$PRSV 



Diagram 24.3 (Part 2 of 2). Perform Security File Save Utility Function ($PRSV) 
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Program Organization 

Figures 24-1 through 24-3 show the control flow of the 
security file utilities. 



Initiator 
Function 



Security 
File 
Utility 
($PROF) 



I 



4 



4 



End of Job 
($EOJ) 
-Control Storage- 



Common 
Open 

(#DMOP) 



Disk IOS 



Deallocate 



(#CAD1) 



Common 
Close 

(0DMCL) 



Work Station 
Data 

Management 
(#DWDM) 



» 



Special 
Allocate 

(#CAS1> 



» 



SYSLOG 



(#CLXS) 



Figure 24-1. Security File Utility Control Flow ($PROF) 
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Initiator 
Function 



4 



Security 
File Restore 
Utility 
($PRST) 



I 



Normal 
Allocate 

(#CAML) 



Special 
Allocate 

(#CAS1) 



Diskette 
Data 

Management 
(#DRSD) 



Common 
Close 

(#DMCL) 



Disk VTOC 
Read/Write 

(#CSVF) 



Common 
Open 

(#DMOP) 



* 



Disk Data 
Management 

(#DDDM) 



« 



SYSLOG 



(#CLXS) 



End of Job 
($EOJ) 
-Control Storage- 



Figure 24-2. Security File Restore Utility Control Flow ($PRST) 
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Initiator 
Function 



Security 
File Save 
Utility 
($PRSV) 



4 



I 



Normal 
Allocate 

<#CAML) 



Special 
Allocate 

(#CAS1) 



Disk VTOC 
Read/Write 

(#CSVF) 



» 



Disk Data 
Management 

(#DDDM) 



Common 
Open 

(0DMOP) 



4 



* 



Common 
Close 

(#DMCL) 



Diskette 
Data 

Management 
(#DRSD) 



» 



SYSLOG 



(#CLXS) 



End of Job 
($EOJ) 
-Control Storage- 



Figure 24-3. Security File Save Utility Control Flow ($PRSV) 
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Chapter 25. File Rename Utility ($RENAM) 



Introduction 

The file rename utility ($RENAM) provides a way to 
change a disk file name. The file identified by label, and 
optionally by date, is renamed to the specified new name. 
If no date is specified, the most recently created file is 
renamed. 

Before the file label is changed, the disk VTOC is searched 
to ensure the procedure does not create two disk files with 
the same label. 

The utility is called by the RENAME procedure or appro- 
priate OCL statements. (See the System Support Reference 
Manual for more information about calling and executing 
$RENAM.) 

The file rename utility consists of a mainline module 
($RENAM) and a syntax specification module ($RETAB). 
The program resides in the system library. 
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Method of Operation 

Diagram 25.1 shows the function of the file rename utility. 
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From: Initiator 



■INPUT 



Main Storage 



Transient Area 



User Area: 
$RENAM 



Control statements 

DiskVTOC 

TCB 
SCA 
FSB 
JCB 




PROCESS 



> 



Process control statements 
Find requested file 
Update file with requested name 
Terminate program 



^ 




OUTPUT 



New file name 



To: Control Storage End-of-Job 
Transient ($EOJ) 



DESCRIPTION 


MODULE/ 
ROUTINE 


|Q Set old file date to zeros. 

Find syntax checker (#USYX). 

Use main storage relocating loader (SVC52) to load #USYX. 

Read and check syntax of control statements. 

If END, go to Q. 
Q Check for existing new label in disk VTOC. 

Return. 

If file with requested new name already exists, issue error message (MIC 6405). 

Find file with old label and date. 

Return. 

If old file does not exist, issue error message (MIC 6406). 

Lock format 1 to ensure no change to format 1 area during program execution. 

If file active, issue error message (MIC 6408) and unlock format 1 . 
|Cj Write new file name to disk VTOC. 

Write latest date indicator to disk VTOC if old file is latest file with multiple file same label. 


$RENAM 


#MASFN 


$RENAM 


#USYX 


$RENAM 


#CSVF 


$RENAM 


#CLXS 


#CSVF 


$RENAM 


#CLXS 


$RENAM 


#CLXS 


#CSVF 



Diagram 25.1 (Part 1 of 2). Perform File Rename Utility Function ($RENAM) 
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DESCRIPTION 



MODULE/ 
ROUTINE 



Unlock format 1. 

Return to||to read next control statement. 

Pass control to control storage end-of-job transient ($EOJ). 



$RENAM 



Diagram 25.1 (Part 2 of 2). Perform File Rename Utility Function ($RENAM) 
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Program Organization 

Figure 25-1 shows the control flow of the file rename 
utility. 
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File 

Rename 
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($RENAM) 
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End of Job 
($EOJ) 
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» 



» 
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Single Name 
Find 

(#MASFN) 



Syntax 
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Read/Write 
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Command 
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SYSLOG 
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Figure 25-1. File Rename Utility Control Flow ($RENAM) 
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Chapter 26. Work Station Configuration ($SETCF) 



Introduction 

$SETCF is loaded when the current work station configura- 
tion record and/or data communications (teleprocessing) 
configuration records are to be modified. 

A system configuration record is built when the system is 
configured. The first IPL, following a system configura- 
tion, builds a work station configuration record and a 
communications configuration record for each command 
capable work station by copying the system configuration 
record to the associated configuration records. $SETCF 
is then used to modify only the configuration records 
associated with a work station. The modifications remain 
in effect until changed by way of $SETCF, or until the 
system is reconfigured. 

$SETCF normally executes as an SRT program, but can 
be run from the batch job queue. If loaded from the batch 
job queue, the configurations modified are only in effect 
for the duration of the job for which $SETCF belongs. 
If $SETCF is requested as a released program, no diag- 
nostic message is issued, but the net effect is that nothing 
is modified. 

$SETCF is normally loaded by way of the SET, 
ALTERBSC, or OVERRIDE procedures. (See the System 
Support Reference Manual for information about evoking 
$SETCF.) The control statement verbs allowed are SETCF, 
SETB,orSETR. 

SETCF allows changing work station configuration items 
such as: 

• Number of lines printed per page 

• Print belt image 

• Date format 

• Designated user library label 

• Associated printer ID 

• Forms number 

• Default job region size 

• Date 



SETB allows changing data communication configuration 
items such as: 

• Modem speed 

• Clocking facility 

• Test facility 

• Special tone 

• Switched or nonswitched line 

• Error retries to be attempted 

SETR allows changing data communication configuration 
items such as: 

° Line type 

— Point-to-point nonswitched line 

— Line type specified in RPG II program 

— Point-to-point switched line 

— Tributary on multipoint line 

• Addressing characters 

• Switch type 

• Wait time between messages 

• Blank compression 
o Record separator 

• Multiple files 

• Local station switched I D 

® Remote station switched ID 

$SETCF uses the syntax checker (#USYX) to read and 
check the syntax of the user entered control statements. 
When the END statement is read, $SETCF calls the end- 
of-job transient ($EOJ) to terminate the work station 
configuration procedure. 
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Method of Operation 

Diagram 26.1 shows the function of the work station con- 
figuration utility. 
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From: Calling Procedure 



■ INPUT 



Main Storage 



Transient Area 



User Area: 
$SETCF 



Control statements 

Communications 
and work station 
configuration 
records 

JCB 
SCA 
TCB 
TUB 




PROCESS 



> 



Read and syntax check control statement 
Process SETCF control statement 
Process SETB control statement 
Process SETR control statement 
Process END control statement 



O 




OUTPUT 



Work station 
configuration record 

Communications 
configuration record 

JCB and TUB 



To: Control Storage End-of-Job 
Transient ($EOJ) 



DESCRIPTION 


MODULE/ 
ROUTINE 


pB Build system find parameter list to find syntax checker (#USYX). 
Find #USYX. 
Load #USYX using main storage relocating loader (SVC-52). 


$SETCF 


$MASFN 


$SETCF 


Branch to #USYX. 

Read and syntax check control statement. 

Check verb from control statement and if: 




#USYX 


$SETCF 


• SETCF, to toQ. 




• SETB.gotoH- 




• SETR.gotoQ. 




• END, goto 0. 




Q Find job control block (JCB). 




Use task work area (TWA) get function to read work station configuration record from disk. 




Process control statement parameter given: 




• LINES — update JCB and configuration record. 




• FORMAT — update JCB and configuration record. 
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DESCRIPTION 



MODULE/ 
ROUTINE 



• DATE — update JCB and configuration record. 

• PRINTER-SYS: 

— Set IDtoX'FFFF'. 

— Update JCB and configuration record. 

• PRINTER-WSID: 

— Issue halt message if invalid ID. 

— Move printer ID to terminal unit block (TUB). 

— Update JCB and configuration record. 

• FORMS NO — update JCB and configuration record. 

• Default region size: 

— Issue halt message if region size invalid. 

— Update JCB and configuration record. 

• User library: 

— Issue halt message if ^LIBRARY specified. 

— If LIBRARY-0 specified, zero out library name in configuration record. 

— Move library label to configuration record. 

Use TWA put function to return updated configuration record to disk. 

Return toQto read next control statement. 

Use TWA get function to read data communications configuration record from disk. 

Examine control statement for parameters given: 

• BRATE 

• CLOCK 

• ERC (error retry count) 

• SLINE 

• TEST 

• TONE 

Update configuration record for parameters given. 

Use TWA put function to return updated configuration record to disk. 

Return tod to reac ' next contro ' statement. 

Use TWA get function to read data communications configuration record from disk. 

Process control statement parameters given: 

• MLTFL — update configuration record. 

• LINE-Sor LINE-C: 

— If no SWTYP given, issue halt message. 

— If SWTYP given, update configuration record with SWTYP and LINE information. 

• WAIT — update configuration record. 

• RCSP: 

— Ensure good value given. 

— Convert value if necessary. 

— Issue halt message if invalid value. 

— Update configuration record. 

• LOCID: 

— Ensure good value given. 

— Convert value if necessary. 

— Issue halt message if invalid value. 

— Update configuration record. 

• REMID: 

— Ensure good value given. 

— Convert value if necessary. 

— Issue halt message if invalid value. 

— Update configuration record. 



$SETCF 



#CLXS 
$SETCF 



flCLXS 
$SETCF 

#CLXS 
SSETCF 



#CLXS 
$SETCF 



#CLXS 
SSETCF 



flCLXS 
SSETCF 



#CLXS 
SSETCF 
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DESCRIPTION 



MODULE/ 
ROUTINE 



• SWTYP: 

— Only valid for Line-S or C. 

Use TWA put function to return updated configuration record to disk. 

Return toQto read next control statement. 

Pass control to control storage end of job ($EOJ). 



$SETCF 
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Program Organization 

Figure 26-1 shows the control flow of the work station 
configuration utility. 



Calling 
Procedure 



* 



Work Station 
Configuration 

($SETCF) 



« 



I 



» 



Single Name 
Find 

(#MASFN) 



» 



Main Storage 
Relocating 
Loader 
(SVC-52) 



4 



» 



Syntax 
Checker 

(#USOO) 



» 



SYSLOG 



(#CLSG) 



End of Job 
($EOJ) 
-Control Storage- 



Figure 26-1. Work Station Configuration Control Flow ($SETCF) 
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Chapter 27. Screen- Format Generator Utility ($SFGR) 



Introduction 

An application programmer who wishes to use the display 
screen as a formatted input/output device must have a 
display format in a load member in the library. The screen 
format generator routine (SFGR) generates these formats 
from user-created library source members. The generated 
formats are used by work station data management when- 
ever the application program is interfacing with a terminal. 

The screen format generator routine performs the follow- 
ing functions for the application programmer: 

• Reads display format specification statements from a 
library source member. 

• Produces a printout of the specification statements, 
analyzes the specifications for errors, and prints diag- 
nostic error messages. 

• Builds the display format as a two part table that 
includes: 

— A field descriptor table (FDT) consisting of an entry 
that describes attributes for the entire display and a 
table of entries that describes attributes of fields in 
the format. (Only entries needed by WSDM are 
included in the FDT.) 

— A data stream consisting of orders, commands, and 
data (if provided) for the screen display (see IBM 
System/34 Functions Reference Manual, SA2 1-9243). 

The screen format is placed into a load member. The 
load member may contain one or all of the formats for the 
application program. When an application program is 
evoked, the application program must open each load 
member containing formats used by the program. 

• Provides, if data is required during execution by the 
application program using the display format, a print- 
out of those fields in the order they must appear in 
the output record area. 



• Calculates and prints the input and output record 
lengths to be used during execution by the applica- 
tion program. 

• Catalogs the display formats provided for a particular 
application program in an object member in the library. 
The object module containing the formats for an appli- 
cation program have the load member name specified 
in the utility control statement. 

The screen format generator routine program ($SFGR) is 
initiated by way of an OCL statement or the FORMAT 
command. (See System Support Reference Manual for 
information about calling $SFGR.) 

When the application programmer calls the screen format 
generator routine (SFGR), the mainline module ($SFGR) 
is first to receive control (see Figure 27-2). 

$SFGR performs the initial checks and verification for the 
screen format generator routine. It ensures load member 
names are valid, utilizes the syntax checker (#USYX) to 
check control statement validity, and checks that the 
LOADMBR statement follows immediately after the RUN 
statement. It calls the library find routine ($MAFND) to 
ensure that the screen format load member and source 
member exist; it also calls the find specified library routine 
(#MAFLB) to determine if the specified library exists when 
the INOUT verb is given and checks the screen format load 
member index for the specified format name when 
DELETE is specified. The screen format communications 
area along with the format load member index are then 
moved to the beginning of the task area. Figure is a 
storage map of SFGR. 

If the only operation requested is DELETE, $SFGR passes 
control to the screen format load member maintenance 
routine ($SFLMM). If other operations are requested, 
$SFGR passes control to the diagnose errors and print 
routine ($SFDEP). 



• Provides a printout of all fields defined for input and 
the order in which they will appear in the input record 
area. 
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$SFDEP diagnoses errors in the input source specifications 
and prints requested information when PRINT-NO is not 
specified. It calls the source get transient (#MASGT) to 
fetch the source specifications. $SFPED checks the source 
specifications for valid values and valid combinations. The 
print function is performed by the system list transient 
(#CLST). #CLST prints the source specification records, 
input and output record area formats, the field's location in 
the buffer, and the field length. If necessary, #CLST also 
prints error messages. $SFDEP then passes control to the 
FDT and data stream build routine ($SFFDB). 



$SFRSQ arranges the input data fields in ascending screen 
sequence and ensures that trailing screen attributes of out- 
put fields do not overlay starting screen attributes of any 
other field in the display. It also allocates storage space 
for input and outpub buffers, searches the communica- 
tions table for the data stream that requires resequencing, 
assigns pointer values in the data stream, and then rese- 
quences the data stream. Once the data stream is rese- 
quenced, $SFRSQ writes it from the buffer back to the 
work file. $SFRSQ then passes control to the screen for- 
mat load member maintenance routine ($SFLMM). 



$SFFDB passes control to special allocate (#CAS1) to 
allocate a scratch work file. $SFFDB then builds the data 
stream and field description table (FDT). It sets up buffers 
for the data stream and FDT, searches the communications 
table for CREATE, ADD, or UPDATE entries to determine 
operation requested, and sets up #SYSG to retrieve screen 
S entries. $SFFDB places information such as write com- 
mand, start of header order, screen control character, start 
of header data, insert cursor order, and repeat to address 
entity into the data stream buffer if needed. #MASYG 
then retrieves detail field definition D records. $SFFDB 
places information from the D records into the data and 
FDT buffers. Subroutines within $SFFDB are used as 
required to build screen attribute, move row/column num- 
ber to the insert cursor order, and build field format 
words. FDT entries are moved to the FDT buffer and 
when the FDT buffer is full, $SFFDB calls #DDSM to 
write the buffer to a temporary work file. Processing 
continues until the record type changes back to S (only 
one S record per record group) or end of file is reached. 
At this point, $SFFDB writes the balance of FDT entries 
and data stream to the temporary work file. 



$SFLMM performs the maintenance functions required 
to build the display screen format in the library format 
load member. It searches the SFGR communications 
table and format index of the old format load member 
for formats that must be copied from the old format 
load member to the work file. The sector get/put access 
routine ($MAPGS) is used to read the old formats from the 
load member. $SFLMM resolves address displacements in 
the format indexes in the work file. The file is then read 
into the buffer and $MAPGS is used to write the formats 
to the library load member. 

After the new screen formats are in the library format load 
member, $SFLMM prints the size of each format in the 
load member and calls the end-of-job transient to terminate 
the screen format generator routine. 

Figure 27-1 shows a storage map of the screen format 
generator routine. 



If data fields are in ascending screen sequence, $SFFDB 
passes control to $SFLMM. If, however, the data fields 
require resequencing, $SFFDB passes control to the data 
stream resequence routine (SFRSQ). 
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Method of Operation 

Diagram 27.1 shows the function of the screen format 
generator utility. 
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INPUT 



From: Command Processor 

PROCESS 



C 



-XR1 

SFGR communi- 
cations table 



Main Storage 



User Area: 

See Figure 27-1 



Headings message 
members ($SFGR — 
$SFDEP-$SFLMM) 

Control statements 
($SFGR) 

Library source 
members ($SFDEP 
$SFFDB) 

$SFGR temporary 
work file ($SFFDB, 
$SFLMM,$SFRSQ) 

Library control sector| 
(SSFLMM) 

Library format load 
member ($SFLMM) 




r 



> 



Check OCL statement validity 

Prepare to fetch next SFGR module 

Check and print source specification 
records 

Build data stream and field descriptor 
table 

Arrange input data fields in ascending 
screen sequence 

Perform maintenance function 



:> 




OUTPUT 



SFGR control 
block ($SFGR) 

Printed output 
($SFDEP): 

• Source member 
specs. 

• I/O record area 
layouts 

• Warning and 
terminal error 
messages 

Temp, work file 
($SFGR): 

• FDT entries 
(SSFFDB) 

• Data screen 
(SSFFDB, 
$SFRSQ) 

Library format load 
member ($SFLMM) 



To: Control Storage End-of-Job 
Transient ($EOJ) 



DESCRIPTION 



MODULE/ 
ROUTINE 



Retrieve heading messages 2400, 2406, and 2407 to ensure valid load member names. 

Load syntax checker (#USYX) into main storage. 

Clearn output table area. 

Branch to #USYX to get and check control statement. 

Check return code from #USYX for valid control statement and call SYSLOG if statement invalid. 

If statement after RUN not LOADMBR, call SYSLOG (#CLXS) to issue error message. 

Check for screen format load member existence and check REPLACE value on LOADMBR statement. 



#MGRET 



$SFGR 



#USYX 



$SFGR 



$MAFND 
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DESCRIPTION 


MODULE/ 
ROUTINE 


If INOUT verb given, call the find specified library routine ($MAFLB). 

Determine if specified library exists. 

If INOUT verb not given, assign default values. 
A Check for CREATE, ADD, UPDATE, or DELETE verb. 

If CREATE specified with either UPDATE, ADD, or DELETE, call SYSLOG to issue error message. 

Determine if specified source member library name exists. 

If specified member does not exist, call SYSLOG (#CLXS) to issue error message. 

If DELETE specified, check screen format load member index for format name. 

If format name not in index, call SYSLOG to issue error message. 

Return toQ^Sand repeat steps until END verb or 32 statements are read. 
m Move screen format communications area and format load member index to beginning of task area. 

If only DELETE verb specified, go to^J. 
(£| Load source get transient (#MASYG). 

Assign required work areas needed for input and output field descriptions. 
K9 Search communications table for CREATE, ADD, or UPDATE entry. 

Set #MASYG parameter to do a get next record. 

Call #MASYG and check input source specifications for valid values and valid combinations. 

Build table of input and output field descriptions. 

If PRINT-NO not specified; call system list routine (#CLST) to print: 

• Source specification records. 

• Input and output record area formats in order required in user's input or output record area. 

• Field's location in buffer. 

• Length of field. 

If necessary, call #CLST to print error messages. 

Return tofCjKMand repeat steps until all source members are read. 

If terminal errors, call end of job transient. 
£jj Load sectorized disk data management routine (#DDSM). 

Call special allocate (#CAS1) to allocate scratch work file. 

Set up buffers for source get (#SYSG), field descriptor table (FDT), and data stream. 

Open temporary work file. 
^% Search communications table entries for CREATE, ADD, or UPDATE entry. 

Set up #MASYG input parameter to retrieve screen S entry. 


$SFGR 


$MAFLB 


$SFGR 


$MAFND 


$SFGR 


SSFDEPor 
$SFLMM 


$SFDEP 


#SFDEP 


#MASYG 


SSFDEP 


#CLST 


$SFDEP 


$SFFDB 


#CAS1 


$SFFDB 


#OPEN 


$SFFDB 


#MASYG 
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DESCRIPTION 


MODULE/ 
ROUTINE 


Check values in S entry for YES, NO, and indicator values. 


SSFFDB 


As required, place in data stream buffer: 




• Clear unit or clear format table order. 




• Write command. 




• Screen control character. 




• Start of header order and data. 




• Insert cursor order. 




• Repeat to address entity (if repeat to address order required). 
■il Retrieve detail field definition D records. 

Process D records placing data stream orders and data into data buffer and build applicable FDT entries: 




#MASYG 


$SFFDB 


• Convert field length, row, and column position from EBCDIC to hex. 




• Add start line number minus one to detail row number. 




• Move field length, row/column address, and displacement into data stream and FDT. 




• If field is output: 




— Branch to subroutine to process output fields. 




— Branch to subroutine to build screen attribute. 




• If field is input; branch to subroutine to process input fields: 




— If field is not also output, branch to subroutine to build screen attribute. 




— If first input field, move row/column number to the insert cursor order. 




— Build required field format words based on input specifications. 




If required, move FDT entry to FDT buffer. 

When full, write FDT buffer to temporary work file. 

Go toE:Bl»>and repeat steps until next S record found or end of file reached. 

If record type changed from D to S or last record processed, write balance of FDT entries and data stream 




#DDSM 


SSFFDB 


#DDSM 


to work file. 

Go to£JCjSand repeat steps until all input source specification members processed. 
Close output file. 

If fields specified in input specifications in ascending screen location sequence, go toKSg. 
m Allocate storage space for necessary input and output buffers. 




$SFFDB 


#DMCL 


SSFFDB 


$SFRSQ 


m\ Search communication table for data stream that requires resequencing. 
Read data stream from work file into input buffer. 
Move input fields from input buffer to output buffer in ascending screen sequence. 




Disk IOS 


$SFRSQ 


Remove trailing attributes from output field if required, and move them to the output buffer. 




Assign pointer values in data stream to permit data stream being placed into user's input buffer in correct 




sequence. 

Write resequenced data stream back to work file. 

Return tojjjff^and repeat steps until all data streams not in ascending screen order are resequenced and 




Disk IOS 


$SFRSQ 


returned to work file. 
EH Load sector get/put access routine ($MAPGS) 




$SFLMM 


If CREATE not specified: 
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DESCRIPTION 



MODULE/ 
ROUTINE 



w& Search SFGR communications table and format index of old format load member for formats that must be 
copied from old format load member to work file. 

• Read required formats from library. 

• Return. 

• Write formats to work file. 

• Return toHI^TOand repeat steps until all necessary formats are copied to work file. 



Resolve address displacements in indexes of formats in work file. 

Open library member. 

Return. 

Read formats from work file. 

Return. 

Write formats to library member. 

Return. 

Print the size of each format in the load member. 

Return. 

Call end of job transient. 



$SFLMM 



$MAPGS 



$SFLMM 



Disk IOS 



$SFLMM 



$MAPGS 



$SFLMM 



Disk IOS 



$SFLMM 



SMAPGS 



$SFLMM 



#CLST 



SSFLMM 
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Program Organization 

Figure 27-1 shows the main storage map of the screen for- 
mat generator utility. 

Figure 27-2 shows the control flow for the utility. 
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Figure 27-1. Storage Map of Screen Format Generator 
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Screen Format Generator 
Routine Mainline 
($SFGR) 



Diagnose Errors and Print 
($SFDEP) 



When Only DELETE 
Verb Specified 



I 



FDTand Data Stream Build 



(SSFFDB) 




When all Fields Defined 
in Ascending Screen Order 



Screen Format Load Member 
Maintenance Routine 
($SFLMM) 



Figure 27-2. Screen Format Generator Control Flow 



Program Organization 27-9 



Licensed Material— Property of IBM 



27-10 

Licensed Material— Property of IBM 



Chapter 28. Command Processor Procedure Error Utility ($CPPE) 



Introduction 

This utility provides a means by which SSP and program 
product procedures can issue error messages. SSP and pro- 
gram product procedures use the #ERR error procedure to 
call $CPPE. 

The $CPPE utility consists of the command processor pro- 
cedure error utility phase ($CPPE) and syntax checker 
specification module ($CPTB). This utility resides in the 
system library. 

The #ERR SSP procedure is used to execute $CPPE. It 
can be used only by SSP and program product procedures: 

#ERR nnnn,C,alpha code 



Alpha Code 


Message Member 


SSP 


##MSG1 


SSPU 


Active USE R1 


RPG 


Active USER 1 


AUTO 


Active USER 1 


SEU 


Active USER 1 


SORT 


Active USER 1 


DFU 


Active USE R1 


WSU 


Active USER 1 


ASM 


Active USER 1 


SDA 


Active USER1 



Note: SSPU is the same as SSP except that 
the message is retrieved from the active 
USER1 member. 



nnnn — Four-digit MIC (message identification 

code). This parameter must be specified. 

C — This parameter can only be C. If omitted, 
the default is C. It specifies that the job 
is to be cancelled, 
alpha — Three or four characters specifying the mes- 
code sage member to be used. The default is SSP. 



#ERR builds the following OCL statements: 

// LOAD $CPPE 

// RUN 

// ERR MIC-nnnn,CONTROL-C,ALPHA-alpha code 

//END 

$CPPE uses the MIC passed in the ERR statement to issue 
the corresponding message with a 3 option only. The mes- 
sage is retrieved from the message member determined by 
the ALPHA parameter; the message is issued with the mes- 
sage identifier corresponding to the ALPHA and MIC 
parameters. The $CPPE utility requires 14K bytes of 
main storage for execution. 



Introduction 28-1 



Licensed Material— Property of IBM 



Method of Operation 

Diagram 28.1 shows the function of the command pro- 
cessor procedure error utility. 
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From: Initiator 



■INPUT 



Main Storage 



Transient Area 



User Area: 
$CPPE 




m PROCESS mmcm 



OUTPUT 



#ERR utility 
control statement 



_^> 01 Process ERR utility control statement 

J Process ERR statement parameters 

U Process END utility control statement 

J Issue error message from appropriate 
message member 



o 




Error message 



To: SYSLOG Mainline (#CLSG) 



DESCRIPTION 



MODULE/ 
ROUTINE 



Process ERR statement. 

Process parameters. 

If errors found in parameters, issue message SYS-5560. 

Process END statement. 

If errors found in statement, issue message SYS-5560. 

Issue error message specified on ERR statement. 

Issue MIC with 3 option only. 

If ALPHA-SSP, retrieve MIC from ##MSG1 . Otherwise, retrieve MIC from active USER1 message member. 
Use ALPHA parameter to determine SYSLOG program ID (SYSLOG uses program ID and MIC for message 
identifier). 



#USYX 



$CPPE 



#CLSG 



#USYX 



#CLSG 



#USYX 



#CLSG 



Diagram 28.1. Command Processor Procedure Error Utility ($CPPE) 
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Program Organization 

Figure 28-1 shows the control flow for the command pro- 
cessor procedure error utility. 



Initiator 
Function 



» 



* 



Command 
Processor 
Procedure 
Error Utility 
($CPPE) 



» 



Syntax 

Checker 

(#USYX) 



» 



SYSLOG 
Mainline 
(#CLSG) 



Figure 28-1. Command Processor Procedure Error Utility Control Flow ($CPPE) 
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Appendix A. Directory 



This directory is a reference to the microfiche listings for 
modules discussed in this manual. 

Modules are listed in sequence by module name. 

Each directory entry contains the module name, a HIPO 
reference (if any), the descriptive name, the module's 
entry point in the listing on microfiche, and a brief descrip- 
tion of the module's functions. 



Module 






Entry 




Name 


Diagram 


Descriptive Name 


Point 


Function 


$BACK 


09.1 


Backup library utility 


$BACK 


Copy the 



Copy the library directory from disk to 
diskette and update the directory. Create 
the portion of the backup file on diskette 
from which IPL can be done. Copy library 
members from disk to diskette 



$BICDI 



10.1 



Basic interchange, $BICDI 

diskette to SYSLIST 



Copy files from diskette to the SYSLIST 
device 



$BICFI 



$BICIF 



$BICR 



$BITAB 



10.1 



10.1 



10.1 



Basic interchange, 


disk 


$BICFI 


to diskette 






Basic interchange, 




$BICIF 


diskette to disk 






Basic interchange 




$BICR 


control module 






Syntax specificati< 


Dns 


None 


for$BICR 







Copy files from fixed disk to diskette 



Copy files from diskette to fixed disk 



Read in input parameters, determine which 
function is to be performed, and load the 
proper module 

Input parameter specifications for $BICR 



$BMENU 
$BMTB 

$BUILD 



11.1 



12.1 



Build menu utility 


$BMENU 


Build menu specification 


None 


module 




Alternate sector rebuild 


$BUILD 


utility 





Build a menu 

Syntax checker specification module used 
by$BMENU 

Display the contents of an alternate sector 
for operator modification 



$CNFIG 



01.5 



System configuration 



$CNFIG Display configuration parameters. Prompt 

for system configuration parameters. 
Modify system config record 
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Module 






Entry 


Name 


Diagram 


Descriptive Name 


Point 


SCOADD 


13.1 


COPY ADD 


SCOADD 


$COALL 


13.2 


Copy-all-files 
preparation routine 


BEGIN 


$COANT 


13.2 


Copy-all-files 
initialization 


BEGIN 


$COCRT 


13.4 


Display to the CRT 


$COCRT 


$COGET 


13.4 


Get/put interface with 
record- mode data 
management 


BEGIN 



Function 

Add a disk file to an existing diskette file 

Control selection of files from disk/diskette 
VTOC 

Control selection of files from disk or 
diskette; ensure compatibility across 
diskette boundaries 

Interface between SCOGETand $FEKEY 

Interface for record mode data management 
and/or $COCRT and $COPRT 



$COINT 



$COPRT 



13.3 



13.4 



Single file initialization 



BEGIN 



Display to the printer $COPRT 



Determine the allocation and access methods 
(including those not resident). Screen mis- 
matched requests 

Interface between $COGET and SYSLIST 



SCOPY 



$COSEL 



13.1 



13.4 



Copy user file utility 



SCOPY 



Record selection and/or $COSEL 

deletion 



Mainline module of the SCOPY utility. 
Invoke the syntax checker and route control 
to (1) SCOINT, (2) SCOANT, or (3) 
SCOADD according to the function 
specified 

Control selection and/or deletion of records 



SCOTAB 



SCOZIP 



SCPPE 



SCPTB 



SDDST 



Syntax specifications None 



13.2 



28.1 



Get/put interface with 
sector mode data 
management 

Command processor 
procedure error utility 
(#ERR proc) 

Syntax specifications 
for #CPPE 

Keysort utility load 
module 



COZ00Z00 



SCPPE 



None 



SDDST 



Define syntax of control statements for 
SCOPY 

Control movement of data disk-to-disk, 
disk-to-diskette, diskette-to-disk 



Issue error messages for #ERR procedure 



Define syntax specifications for #ERR 
procedure statements 

Call allocate to have the keys sorted in the 
index of the specified file 
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Module 
Name 

SDELET 



Diagram 

14.1 



$DELF1 14.1 



$DELI1 14.1 



Descriptive Name 

File delete control 
module 



Delete files from fixed 
disk 

Delete files from 
diskette 



Entry 
Point 

SDELET 



$DELI1 



Function 

Read input parameters, determine which 
function is to be performed, and load the 
proper module 



$DELF1 Delete files from fixed disk 



Delete files from diskette 



SDETAB 



Syntax specifications 
for$DELET 



SDETAB Input parameter specifications for SDELET 



SDUPRD 15.1 



SDUTAB 



SERAP 07.6 



Utility to duplicate SDUPRD 

diskette 

Syntax specifications SDUTAB 

for SDUPRD 

Error recording analysis SERAP 

procedure mainline 



Copy diskettes from one to another, or one 
file from one diskette to another 

Input parameter specifications for SDUPRD 



Display or print error history information 



SERAO 07.6 



ERAP module for disk ERAPFD Format information for disk 



SERCA 07.6 



ERAP module for 
work station controller 



ERCAX 



Format information for work station 
controller 



SERCO 07.6 



ERAP module for 
work station devices 



ERAPWS Format information for work station 

devices 



SERDO 07.6 



ERAP module for 
diskette 



ERAPIX 



Format information for diskette 



SERE0 07.6 



SER01 07.6 



SER02 07.6 



SER80 07.6 



ERAP modules for line 
printers 

ERAP module for 
control store 
processor 

ERAP module for main 
store processor 



ERAPLX Format information for line printers 



ERAPCS 



ERAPMS 



ERAP module for BSC ER80X 



Format information for control storage 
processor 



Format information for main storage 
processor 

Format information for BSC 
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Module 






Entry 


Name 


Diagram 


Descriptive Name 


Point 


$FBLD 


16.1 


Build null files utility 


$FBLD 


$FBTAB 


- 


Syntax specifications 
for$FBLD 


$FBTAB 


$FEAPR 


07.1 


FE APAR prog. 


FEAPRMNL 


$FECRT 


07.2 


FE display program 


FECRTMNL 


$FEDMP 


07.2 


FE dump utility 


FEDMPMNL 



$FEDSK 



07.2 



$FEFIX 


07.3 


$FEIOP 


07.2 


$FEKEY 


12.1 




13.4 


$FEPCH 


07.4 



FE disk dump routine 



FE PTF utility 

FE I/O processor dump 
routine 

FE CRT window 
display 

FE patch program 



FEDSKMNL 

FEFIXMNL 
FEIOPMNL 

FEKEYMNL 

FEPCHMNL 



Function 

Build null files with attributes given by 
user 

Input parameter specifications for $FBLD 



Create an APAR diskette 

Format and output storage to work station 

Process dump utility control cards and pass 
control to a subroutine to handle specified 
options 

Output disk/diskette storage to specified 
output device 

Apply a fix to system programs 

Output I/O processor storage to specified 
output device 

Display an 80-byte window of a block of 
data on the CRT screen 

Process patch utility control cards and pass 
control to a subroutine to display disk/ 
diskette data 



$FESTR 



$FESYM 



$FESYS 



$FETRC 



$FREE 



07.2 



07.2 



07.5 



23.1 



FE storage dump 
routine 

Specification module 



FE system area dump 
routine 

FE trace program 



Reorganize disk 
initialization module 



FESTRMNL Write main/control storage to specified 
output device 

None Defines syntax of control statements for 

$FEDMPand$FEPCH 

FESYSMNL Write PTFLOG, configuration record, or 

disk trace file to specified output device 

FETRCMNL Set events to be traced by the system and 
initialize trace file if required 

$FREE Build a table of the start and end SSS 

address for each file located within the user 
area of F/D and sort the table in ascending 
sequence by beginning SSS address 
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Module 






Entry 




Name 


Diagram 


Descriptive Name 


Point 


Function 


$FRE1 


23.1 


Accumulate free 
space high 


$FRE1 


Each date 
successive 



$FRE2 23.1 



Accumulate free 
space low 



$FRE2 



Each data file on the specified spindle is 
successively moved to the lowest available 
block number and all free space is accumu- 
lated at the high end of the spindle 

Each data file on the specified spindle is 
successively, moved to the highest available 
block number and all free space is accumu- 
lated at the low end of the spindle 



$FRE3 



23.1 



Rebuild the format 5s 



$FRE3 



Rebuild the Format 5s to represent the 
accumulated free space and write them 
back to disk VTOC 



$FRES 



Syntax specifications 
for$FREE 



None 



Input parameter specifications for $FREE 



$HIST 



17.1 



History file display 



$HIST 



Display contents of history file to CRT/ 
Printer 



$HITB 
$INIT 



18.1 



Specification module None 

Diskette initialization $INIT 

utility 



Define syntax of control statements 

Rename diskettes, delete all files, and 
format diskettes 



SLABEL 



19.1 



Disk VTOC display 



$LABI1 



$LABLS 



19.1 



Diskette VTOC display $LAB 1 1 



Syntax specifications None 

for SLABEL 



Build a table containing the start and end 
SSS address of each file represented in the 
system and user VTOC on F/D. This table 
is then sorted in ascending sequence by 
beginning SS address and a catalog listing 
of pertinent information is printed via 
syslist. This module also calls and passes 
control to $LABI1 if the request was for a 
display of 11. 

Part of $LABEL, called by $LABEL. 
Display VTOC entries from diskette 

Input parameter specifications for $LABEL 



$LOADI 



20.1 



Reload library utility 



LOADIMNL Allocate system areas. Copy system library 
from diskette to disk 



$MACMP 


21.1 


Directory compactor 


$MACMP 


$MACOM 


06.5 
06.6 


Library open/close 


$MACOM 



Remove deleted library directory entries 

Transient version. Open and close 
processing for output to a library 
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Module 




Name 


Diagram 


$MADLT 


21.3 



Entry 
Descriptive Name Point Function 

Library member delete $MADLT Driver for removing library members 



$MADSP 21.4 



$MADXP 



Library display 



$MADSP 



WTG table for $MADSP None 



Driver to display library status, directory 
entries, or library members 

Include for a WTG table for $MADSP 



$MAFIR 21.6 



$MAFND 06.3 



$MAF32 21.6 



$MAILD 



$MAINT 21.1 



$MALCO 



$MALFN 



$MALIL 



$MALOC 21.1 



$MALTL 21.5 



$MALXC 



Library directory fast 
insert 

Librarian find 



Copy from single pro- 
gram sector mode file 
to library 



21.1 


Library maintenance 




mainline 


21.6 


Library open/close 


06.5 




06.6 




06.3 


Librarian find 


21.4 




21.5 





Library allocate 



$MAFIR 



$MAFND 



$MAF32 



Library directory insert $MAILD 



$MAINT 



$MALCO 



$MALFN 



Library directory insert $MALIL 



$MALOC 



Library to library copy $MALTL 



WTG table for $MALOC None 



Put a stack of directory entries into the 
library directory 

Transient version. Partial name, multiple 
type, and update find function 

Copy single program sector mode file to 
library 



Transient version. Put directory entry in 
library directory 

Process utility control statements, set up 
control bucket, and load and pass control 
to appropriate driver 

Load version. Open and close processing 
for output to a library 



Load version. Find function with capabil- 
ities of partial names, multiple types and 
update 

Load version. Add or replace directory 
entry 

Driver to allocate user library, change library 
member size, or change user library directory 
size 

Driver to copy library members between 
libraries or within a library; optionally 
renames members 

Include WTG table for $MALOC 



A-6 



Licensed Material— Property of IBM 



Module 




Name 


Diagi 


$MAPGS 


06.6 




21.5 




21.6 


SMAPTF 


21.3 




06.6 


$MAPUR 


06.5 




21.6 


$MARCK 


21.2 


$MARDR 


21.6 



$MARFF 21.6 



$MARPF 21.4 



$MARTF 21.5 



$MARXF 
$MAR2K 

$MAR3K 
$MASDF 

$MASPC 
$MATFS 

$MATLS 



21.2 



21.2 



21.4 



21.5 



21.6 



Entry 

Descriptive Name Point 

Sector get/put $MAPGS 

PTF handler $MAPTF 

Record put $MAPUR 

Library compress $MARCK 

Reader to library copy $MARDR 



Copy from file to $MARFF 

library in record mode 



Record mode file to $MARPF 

display 

Copy from library to $MARTF 

file in record mode 



Where-to-go table None- 

Library compress $MAR2K 

Library compress $MAR3K 



Sector mode file to $MASDF 

display 



Specification module None 

Copy from library to file $MATFS 
in sector mode 

Copy from file to $MATLS 

library in sector mode 



Function 

Get sector mode modules from a library. 
Put sector mode modules into a library 



Get, Put, Update and delete entries in 
PTF LOG 

Put source or procedure members into a 
library in compressed format 

Driver to compress library member space 

Driver to copy S or P from the reader 
(system input device) to a library 

Copy source or procedure members in 
record mode from a disk or diskette file 
into a library 

Driver to display type and name of library 
members in a record mode file 

Copy record mode members from a library 
to either a disk or diskette file. Copy control 
statement is put at the beginning of member 
and CEND record is put at the end 

This module is included by $MARTF 

Second phase of library compress — update 
library member disk addresses kept in 
control blocks 

Suspend command processor when 
#LIBRARY is being compressed 

Driver to display type and name of library 
members in sector mode librarian file 
(S/32 or S/34) 

Define utility control statements for$MAINT 

Copy sector mode members from a library to 
either a disk or diskette file 

Copy librarian sector mode members from a 
disk or diskette file into a library 
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Module 
Name 

$MAXNT 



$PACK 



Diagram 



$MGBLD 22.1 

$MGTAB 



23.1 



Descriptive Name 

Where-to-go table of 
system transient table 
entries 

Message build utility 

Syntax specifications 
for$MGBLD 

Reorganize disk 
initialization module 



Entry 
Point 

None 



$MGBLD 
$MGTAB 

PAK000 



$PROF 


24.1 


Security file utility 


$PROF 


$PRST 


24.2 


Security file restore 
utility 


$PRST 



$PRSV 



24.3 



Security file save utility 



$PRSV 



Function 

This module is loaded by $MATLS and is 
a where-to-go table of all members in the 
system transient table 

Create load message members 

Input parameter specifications for $MGBLD 

Build a table of the start and end SSS address 
for each file located within the user area of 
disk and sorts the table in ascending sequence 
by beginning SSS address 

Maintain system security file 

Restore security file from diskette 

Save security file on diskette 



$RENAM 
$RETAB 

$SETCF 



25.1 



$SETSM 



26.1 



Rename utility 


$RENAM 


Syntax specifications 


None 


for$RENAME 





Set configuration utility $SETCF 



Set configuration utility 
syntax specification 



$SETSM 



Rename user files 

Input parameter specifications for $RENAME 



Modify and copy to the associated work 
station configuration record updated session 
values: that is, date, region site, library, 
communications configuration values, etc. 

Describe via tables all allowable verbs and 
keywords for set configuration utility 



$SFDEP 



27.1 



$SFDXP 



$SFFDB 



$SFGR 



27.1 



27.1 



Screen format diagnose 
and print routine 



Where-to-go table for 
$SFDEP 

Screen format FDT and 
data stream build 
routine 

Screen format genera- 
tion routine mainline 



$SFDEP 



SFFDB 
DEPXEN 

$SFFDB 



$SFCT 



Print and diagnose SFGR source input 
specifications. Print input and execution 
output buffer configurations. Print size of 
each format 

Link edited with $MASYG 



Build the data stream and FDT entries (if 
required) for each format 



Read utility control statements and build 
SFGR communications table. Diagnose 
utility control statement errors 
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Module 
Name 

$SFLMM 



$SFRSQ 



$SFSPC 



Diagram 
27.1 



27.1 



Descriptive Name 

Screen format load 
member maintenance 
routine 



Screen format 
resequence routine 



Screen format 
specification routine 



Entry 
Point 

$SFLMM 



$SFRSQ 



$SFSPC 



Function 

Add, replace, or delete screen formats in a 
load member; or create or replace an existing 
load member. Uses $MAPGS to copy the 
load member data to the library 

Sort the data stream input fields into 
ascending screen sequence. Truncate trailing 
screen attributes of output fields if necessary. 
Update FDT pointer 

Specification module for $SFGR and syntax 
checker 



##FCFG 



##FCPF 



Second half of 
command processor 
displays 

First half of command 
processor displays 



Display member 



Display member 



##FER1 



##FFE1 



Display screens for 
ERAP utility 

Display screens for 
DUMP/PATCH utility 



Display member 



Display member 



##FFE2 



##FFE3 



##FIPL 



##FLOD 



##FMC1 



Display screens for 
TRACE utility 

Display to allow disk/ 
diskette storage to be 
modified 

Display for IPL 
overrides 

Display for RELOAD 
prompts 

Screen formats for 
concurrent maintenance 



Display member 
Display member 

Display member 
Display member 
Display member 



##FPRS 



Display screens for 
$PROF security utility 



Display member 
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Module 
Name 

##FST1 



Diagram Descriptive Name 

— Menus to allow CE to 

run I/O during installa- 
tion tests 



Entry 
Point 



Function 

Display member 



##FST2 



Menus to allow CE to 
run I/O during installa- 
tion tests 



Display member 



##FST3 



Menus to allow CE to 
run I/O during installa- 
tion tests 



Display member 



##FST4 



Menus to allow CE to 
run I/O during installa- 
tion tests 



Display member 



##FST5 



#CACM 



03.3 



Menus to allow CE to 
run system test to 
verify installation 

Communicator allocate 



#CACM 



Display member 



Attach the data management task necessary 
for a communications DTF 



#CAD1 



#CAD2 



#CAD3 



#CAF1 



03.5 



03.5 



03.5 



03.3 



Deallocate premainline #CAD1 



Deallocate mainline #CAD2 



Update the VTOC F5 #CAD3 

for deallocate 

New file setup #CAF1 



Check user's DTF for a valid request, check 
for keysorting of files, and deallocate devices 

Deallocate disk files, delete disk files, and 
free unused space in disk files 

Update the disk VTOC F5 from the info in 
the DTFs passed by #CAD2 

Set up the DTF with the information neces- 
sary for #CAF2 to get space. Reads the F5 
for #CAF2 



#CAF2 



03.3 



Get space in F5 area 



#CAF2 



Find space in the F5 area for the new files 
in the DTF chain 



#CAF3 



03.3 



Format file, update 
VTOC 



#CAF3 



Format the file and update to VTOC F1 for 
new and load to old files 



#CAKS 



#CAMG 



#CAML 



03.3 



03.3 



03.3 



Allocate keysort 



Allocate messages 



Allocate mainline 



#CAKS Perform keysorting of files during allocate 

and deallocate processing 

#CAMG Set up SYSLOG parameter list for allocate 

messages 

#CAML Allocate old disk files and devices; determine 

if further processing to be done 



A-10 



Licensed Material— Property of IBM 



Module 






Entry 


Name 


Diagram 


Descriptive Name 


Point 


#CAPS 


03.3 


Push/pull for diskette 
allocate and keysort 


#CAPS 


#CAPT 


03.3 


Printer allocate 


#CAPT 


#CAR1 


03.3 


Diskette allocate 


#CAR1 


#CAS1 


03.4 


Special allocate 


#CAS1 



#CAS2 

#CCAS 
#CCCM 

#CCCO 



03.4 

02.4 
02.5 

02.7 



Special old disk allocate #CAS2 

Assign and vary #CCAS 

CANCEL command #CCCM 

CONSOLE command #CCCO 



#CCCP 


02.5 


Spool command 


#CCCP 


#CCGP 


02.6 


Spool command 


#CCGP 


#CCHO 


02.8 
02.6 


Spool command 


#CCHO 



Function 

Make available user storage for the modules 
#CAR1 and#CAKS 

Allocate printers 

Do diskette file allocate processing 

Build and queue an FSB and F1 for each 
special allocate DTF 

Do old disk file allocate for special DTFs. 
Determine further processing to be done 

Process assign and vary commands 

Process CANCEL command and INQUIRY 
CANCEL 

Reassign system console when an I/O error 
occurs at the console 

Spool command — CANCEL 

Spool command — CHANGE 

Spool commands - HOLD, RELEASE 



#CCID 



02.9 



IDELETE command 



#CCID 



#CCJQ 


02.5 


JOBQ command 


#CCJQ 




02.6 


(input) 




#CCJS 


02.15 


JOBQ command 
(input) 


#CCJS 


#CCMG 


02.11 


MSG command 


#CCMG 


#CCMU 


02.10 


MENU command 


#GCMU 


#CCMX 


02.11 


MSG command 


#CCMX 


#CCOF 


02.12 


OFF command 


#CCOF 


#CCPY 


02.13 


PRTY command 


#CCPY 


#CCRE 


02.14 


REPLY command 


#CCRE 



Process the information message delete 
command 

Process JOBQ, CANCEL, CHANGE and 
STOP JOBQ commands 

Process START JOBQ command 



Message command diagnostic and disk 
queuing 

Process MENU command 

Display messages at a work station 

Process OFF and MODE command 

Change and/or set a job's priority 

Reply command to system console 
messages 
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Module 




Name 


Diagram 


#CCRR 


02.15 


#CCRS 


02.14 


#CCRT 


02.15 



#CCSJ 



#CIAT 

#CICM 

#CICO 

#CICX 

#CIDT 

#CIER 
#CIFM 



02.16 



#CCSM 


02.16 


#CCSP 


02.16 


#ccss 


02.16 


#ccsu 


02.16 


#ccsw 


02.16 


#CCS2 


02.16 


#CCS3 


02.16 


#CCS4 


02.16 


#CCTD 


02.17 


#CCU2 


02.16 



03.1 



03.1 



03.1 



03.1 

03.1 
03.1 



Descriptive Name 
Spool command 

REPLY command 

STOP/START 
commands 

JOBQ command 
(status) 

STATUS mainline 

STATUS PRT 

STATUS session-1 

STATUS users 

STATUS workstn 

STATUS session-2 

STATUS session-3 

STATUS session-4 

TIME command 

Command processor 
status user's routine 

ATTR statement 
processor 

COMPILE statement 
processor 

COMM statement 
processor 

Initiator (#CICM) 
OXREF table 

DATE statement 
processor 

Initiator error routine 

FORMS statement 
processor 



Entry 

Point Function 

#CCRR Spool commands - START, STOP, 

RESTART 



#CCRS Handle second level messages 

#CCRT Stop/start functions 

#CCSJ Process status JOBQ command 

#CCSM Route control to proper status module 

#CCSP Process status PRT command 

#CCSS Process session status page 1 

#CCSU Process users status 

#CCSW Process work station status 

#CCS2 Process session status page 2 

#CCS3 Process session status page 3 

#CCS4 Process session status page 4 

#CCTD Return time-of-day and system date 

#CCU2 Display active user information on 
display screen 

IAT00100 Process an ATTR statement 

ICM001 00 Process a COMPI LE statement 

ICO00100 Process a COMM statement 

MAFL@ Cross reference table 
CIER@ 

IDT00100 Process a DATE statement 

IER00100 Issue errors detected by initiator routines 

IFM00010 Process a FORMS statement 
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Module 
Name 

#CIIC 



#CILM 
#CILX 



Diagram 
03.1 



#CIIM 03.1 



#CIIX 



#CILB 03.1 



#CILC 03.1 



#CILD 03.1 



#CILG 03.1 



03.1 



#CIML 03.1 



#CIMM 03.1 



#CIMS 


03.1 


#CIMT 


03.1 


#CIM2 


03.1 


#CIPR 


03.1 



#CIPS 03.1 



#CIRG 03.1 



#CIRN 03.1 



Descriptive Name 

INCLUDE statement 
processor 

IMAGE statement 
processor 

Initiator (#CI I C) 
OXREF table 

LIBRARY statement 
processor 

LOCAL statement 
processor 

LOAD statement 
processor 

LOG statement 
processor 

Load MRT routine 

Initiator (#CILD) 
OXREF table 

Initiator mainline 



MEMBER statement 
processor 

* statement processor 

MRT procedure 

** statement processor 

PRINTER statement 
processor 

PHASE statement 
processor 

REGION statement 
processor 

RUN statement 
processor 



Entry 
Point 

IIC03900 



CIMT@ 
CIER@ 



ILM00100 

CILM@ 
CIER@ 

IML00010 



Function 

Process an INCLUDE statement 



IIM00100 Process an IMAGE statement 



Cross reference table 



ILB00100 Process a LIBRARY statement 



I LC001 00 Process a LOCAL statement 



I LD00001 Process a LOAD statement 



OLG00100 Process a LOG statement 



Process LOAD statement for a MRT program 
Cross reference table 



Read OCL statements; pass control to STMT 
processors; perform file processing 



IMM00010 Process a MEMBER statement 

IMS00100 Process an * statement 

IMT03900 Set up a MRT for initial call and attach to 
existing MRT 

IM200100 Process a ** statement 

IPR00010 Process PRINTER statement 

I PS001 00 Process a PHASE statement 

IRG00010 Process a REGION statement 

IRN00100 Final initiator phase; load user program 
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Module 

Name Diagram 

#CIRX 



#CISL 03.1 



#CISW 03.1 



#CIVT 03.1 



Descriptive Name 



Entry 
Point 



#CIVX 



#CIWK 



#CLSG 



03.1 



#CLAC 


06.15 


#CLBL 


06.15 


#CLFX 


06.15 


#CLOX 


- 


#CLPR 


06.15 


#CLSB 


06.15 


#CLSC 


06.16 



06.17 



Initiator (#CIRN) 


SVAU@ 


OXREF table 


CIER@ 


SYSLIST statement 


ISL00100 


processor 




SWITCH statement 


ISW00010 


processor 




VTOC read/write 


IVT08500 


interface 




Initiator (#CIVT, 


CIER@ 


#CIMM,and#CIM2) 




OXREF table 




WORKSTN statement 


IWK00100 


processor 




Active existence test 


#CLAC 


Blocks existence test 


#CLBL 


File existence test 


#CLFX 


OXRF table 


None 


Prompt routine 


#CLPR 


Substitution routine 


#CLSB 



SYSLIST CRT 
(transient) 



SYSLOG mainline 



#CLSM 


06.15 


Switch/member 
existence tests 


#CLSM 


#CLSN 


06.15 


SYSIN (transient) 


#CLSN 


#CLSP 


06.16 


SYSLIST printer 
loadable module 


#CLSP 


#CLSS 


06.15 


SYSIN mainline 


#CLSS 



Function 

Cross reference table 

Process a SYSLIST statement 
Process a SWITCH statement 
Interface with VTOC read/write routine 
Cross reference table " 

Process a WORKSTN statement 

IF active existence test 

IF blocks existence test 

IF file existence test 

OXRF table for initiator and SYSIN 

Prompt and substitute parameters 

Perform nonparameter substitution 

Display system programs output or record 
(for those programs using SYSLIST) when 
the SYSLIST device is the CRT 

Display messages to a work station or system 
console. Print these messages if the printer 
is the SYSLOG device and the system is in 
single program mode. Also record the mes- 
sage in the history file 

Switch/member existence tests 

Push/pull for SYSIN mainline 

If printer is SYSLIST device, display 
SYSLIST records 

Procedure handling mainline 
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Module 

Name Diagram 

#CLST 06.16 



#CLSW 



#CLXS 



#CMCI 



#CMCS 



#CMCU 



06.16 



06.17 



02.28 



02.28 



02.31 



Descriptive Name 

SYSLIST printer 
transient 



SYSLIST CRT 
loadable module 

SYSLOG push/pull 
(transient) 

Console management 



Console management 



Entry 
Point 



#CMEJ 02.28 



CP clean up 



Console EOJ 



#CLSW 



#CLXS 



#CMCI 



#CMCS 



#CMCU 



#CMEJ 



Function 

Print system programs output or record 
(system programs that use SYSLIST) when 
the SYSLIST device is the printer 

If display screen is SYSLIST device, 
display SYSLIST records 

Push/pull main storage to load the SYSLOG 
mainline (#CLSG) 

Accept messages from a user and queue 
them to the system console 

Display messages on the system console 
queue 

Command processor routine which does log 
printer, history file put, msg retrieve and 
message displaying 

Marks all messages responded to by EOJ 
with '**' on console 



#CMLS 02.29 



SYSLIST CRT 



#CMLS The data management for SYSLIST to a 

work station 



#CMWI 



#CMWO 



#CPER 



#CPIO 



02.29 



02.29 



02.31 



02.26 
02.21 
02.23 



Work station SYSIN #CMWI 

data management 

SYSLOG/SYSLIST #CMWO 

data management 

Console management #CPER 

error recovery 

Command processor #CPIO 

input/output processor 



The data management for retrieving SYSIN 
records from a work station 

The data management for SYSLOG to a 
work station 

Process I/O errors at work stations and 
printers under the command processor 

Create WSDM parameter list and call 
WSDM 



#CPIQ 



#CPKS 



02.23 
02.24 

02.15 



CP inquiry menu 
processor 

KEYSORT all files 



#CPIQ 



#CPKS 



#CPML 


02.1 


Command processor 


#CPML 


#CPON 


02.2 
01.4 


Sign-on 


#CPON 


#CPRT 


02.1 


CP input processor/ 


#CPRT 




02.19 


router 





Process inquiry options, rename and other 
exception conditions 

Keysort any files in the VTOC that have the 
sort or merge bit on 

Wait for events to occur 

Sign-on module 



Initially process input routine commands 
to appropriate transient 
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Module 

Name Diagram 

#CPSP 02.25 



Descriptive Name 

Special key processor 



Entry 
Point 

#CPSP 



#CPTC 


02.1 


CP task post 


#CPTC 




02.20 


processor 






02.21 








02.30 






#CPTS 


02.30 


Sign-on display writer 


#CPTS 


#CSAF 


06.8 


AFA access 


#CSAF 


#CSDK 


06.10 


Duplicate key halt 
routine 


#CSDK 


#CSIM 


06.11 


Printer set-up halt 
routine 


#CSIM 


#CSVF 


06.12 


Disk VTOC read/write 


#CSVF 


#CSVI 


06.13 


Diskette VTOC read/ 
write main (transient) 


#SCVI 


#CSVJ 


06.13 


Diskette VTOC read/ 
write main (transient) 


#CSVJ 



Function 

Initiate processing required by special 
function keys on keyboard 

Process sys req, inquiry, and release 
functions 



Write sign-on display 

Read the AFA format 1 's into a callers 
I/O buffer 

Issue SYSLOG halts if a duplicate key is 
found during keysort 

Issue SYSLOG halts if printer setup required. 
Image, forms, spool separator pages 

Disk VTOC read/write transient version 

Read, write diskette VTOC and prepare 
function 

Build the diskette VTOC work area on disk 



#CSVK 



#CTECM 



06.13 



05.2 



Diskette VTOC read/ #CSVK 

write (transient) 

Termination communi- #CTECM 

cations interface 



Build the diskette VTOC on diskette from 
the diskette VTOC work area on disk 

Process communication specification block 
(CSB) for a task 



#CTEEX 



#CTEGU 05.2 



#CTEIF 05.2 



Termination exit #CTEEX 

interface 

Termination interface #CTEGU 

to get the user into 
main storage 

Termination interface #CTEIF 



Set or modify the termination exit address 
for communications program 

Pull user program back into main storage 
from disk 



Get control initially when terminating a 
step/job. Provide the interface to the main 
terminator 



#CTEKS 05.2 



Termination keysort 
interface 



#CTEKS 



Pass control to keysort if required 



#CTEPR 05.2 



Termination processor 



#CTEPR Perform most of the termination functions 

necessary to terminate a step/job (keysort, 
files processing, work station logic, etc.) 
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Module 

Name Diagram 

#CTES 05.2 



#DDCL 05.1 



#DDDM 



#DDLM 



#DDSM 



#DDSR 



#DD10P 



#DD20P 



#DMCL 



04.1 



04.2 



03.6 



03.6 



05.1 



Descriptive Name 

Spool-JOBQ 
termination 

Disk close (transient) 



Nucleus resident disk 
data management 



#DMOF 03.6 



Common data manage- 
ment close transient 



Second common data 
management open 
transient 



Entry 
Point 

#CTES 



#DDCL 



X'0000' 



#DDKAA 


04.7 


Keysort-control 


X'0000' 


#DDKEP 


04.7 


Keysort-end of phase 


X'0000' 


#DDKLL 


04.7 


Keysort-assignment and 
3-phase sort control 


X'0000' 


#DDKSS 


04.7 


Keysort-sort in place 


X'0000' 


#DDK1A 


04.7 


Keysort-3-phase internal 
sort 


X'0000' 


#DDK2A 


04.7 


Keysort-3-phase inter- 
mediate merge 


X'0000' 


#DDK3A 


04.7 


Keysort-3-phase final 
merge 


X'0000' 



Disk limits open #DDLM 

Disk sector data #DDSM 
management 

Index sequential/random #DDSR 
input to disk 

Disk open transient one #DD10P 



Disk open transient two #DD20P 



#DMCL 



Function 

Update spool file and JOBQ file after 
compress has run 

Issue completion of all I/O operations, 
return DTF to pre-open status, update 
format 1 to current status of the file 

Provide general disk data management 
support 

Keysort control 

Perform phase to phase communications 

Design sort, allocate workfile, examine 
format 1 

Sort without a work file 

Create initial strings on work file 



Merge intermediate strings from and to 
work file 

Merge all intermediate strings back to index 



Establish user limits for index sequential 
input or update files 

Handle gets and puts in sector mode to disk 



Handle random, forward, or backward gets 
from the disk 

Perform diagnostic checking of fixed disk 
DTFs. Also initialize all DTF fields for 
dummy and ZPAM open 

Format the DTF, lOBs and data areas (of 
fixed disk DTF's) as required 

Serve as a routing routine for DTFs that are 
to be closed. Call appropriate device-depend- 
ent close modules to perform re-initialization 
of DTF's 



#DMOF Act as routing for preopen DTFs. Pass 

control to appropriate device dependent 
open modules 
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Module 




Name 


Diagram 


#DMOP 


03.6 



#DPAL 04.5 



#DPCL 05.1 



#DPDM 



#DP0P 



#DWDM 



04.5 



03.6 



04.6 



#HFPUT 06.18 



Descriptive Name 

Common data manage- 
ment open transient 



Printer alignment 
(transient) 

Printer close (transient) 



Printer data manage- 
ment 

Printer open (transient) 



Work station data 
management router 



History file put 
(transient) 



Entry 
Point 

#DMOP 



#DPAL 



#DPCL 



#DPDM 



#DPOP 



#DRCL 


05.1 


Diskette close 


#DRCL 


#DRDM 


04.3 


Diskette record data 


#DRDM 




04.4 


management 




#DRNV 


04.4 


Diskette end of volume 


#DRNV 


#DROP 


03.6 


Diskette open 


#DROP 


#DRSM 


04.3 


Diskette sector data 


#DRSM 




04.4 


management 





#DWDM 



#HFPUT 



Function 

Act as routing for preopen DTFs. Pass 
control to appropriate device dependent 
open modules 

Give user capability to align printer forms 



Ensure completion of all issued I/O events 
to printer and restore printer DTF to 
pre-open state 

Issue lOBs to printer IOS to perform 
requested I/O operations 

Prepare printer and printer control blocks 
to handle I/O requests 

Close diskette files 

Handle gets and puts in record mode to 
diskette 

Handle volume transition of diskette files 

Open diskette files 

Handle gets and puts in sector mode to 
diskette 

Call work station data management routines 
to perform management functions (link- 
edited with #DDDM) 

Place entries into history file along with user 
ID < terminal ID, job name, time-stamp, 
etc. 



#MAFLB 06.1 

#MAMPM 06.7 



#MANOP 06.9 



Find a library 

Member protection 
module 



No-op module 



#MAFLB Find and set up for use of a library by name 

#MAMPM Prevent SEU tasks from updating a library 

member if that member is currently being 
updated by another SEU task. Prevent 
initiation of an SEU task when an SEU user 
has made an inquiry back into SEU. Create 
a new element on the SEU member chain 

NOP0000 Match entry points of modules called via 

NOP0003 WTG tables. This module is put in a WTG 

NOP0007 table when the desired module is missing. 

Issue a halt and cancel job when given 

control 
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Module 






Entry 


Name 


Diagram 


Descriptive Name 


Point 


#MASFN 


06.2 


System find 


#MASFN 


#MASGT 


06.4 


Source get 


#MASGT 



#MASYL 06.4 



#MAXRF 06.9 



#MGRET 06.14 



#MSBFL 



#MSBGL 



01.6 



01.6 



Source get #MASYL 



Cross reference XRF0000 

resolver XRF0003 

Message retrieve #MGRET 

(transient) 

Rebuild VTOC format #MSBFL 

1's — phase 2 

Rebuild VTOC format #MSBGL 

1's — phase 3 



#MSBLD 


01.6 


Rebuild VTOC format 
1 's — phase 1 


#MSBLD 


#MSIPL 


01.4 


IPL- 3rd phase 


MSIPLMNT 


#MSJQ 


01.4 


JOBQIPL (input) 


#MSJQ 


#MSNIP 


01.2 


IPL- 1st phase 


MSN I PM NT 


#MSOER 


01.4 


IPL — override 
transient 2 


MSOERMNT 


#MSRID 


01.4 


IPL — override 
transient 1 


MSRIDMNT 


#MSSP 


01.4 


Spool IPL 


#MSSP 


#MSSQS 


01.4 


IPL — initialize storage 


MSSQSMNT 


#MSTWA 


01.3 


IPL -2nd phase 


MSTWAMNT 


#OLAF 


08.4 


Autolink segment list 
build 


AFA000 


#OLAH 


08.5 


Cross-reference segment 
list build 


OLAH00 


#OLAJ 


08.6 


Sort autolink segment 
list 


AJA000 



Function 

Single name find routine transient version 

Transient — get and expand source or pro- 
cedure records 

Include and load version expands S or P 
records 

Call EOJ when done. Return to caller when 
done. Fill in WTG and format index tables 

Retrieve load message members created by 
$MGBLD 

Run keysort 

Check F1 's for proper latest date indicator 

Rebuild VTOC F1's if requested by system 
operator 

Initiate SIGN-ON. Process CONFIG. options 

Format disk and main store for input JOBQ 

Initiate main storage IPL 

Prompt for IPL overrides for JOBQ and 
spool 

Prompt for system configuration override 
options 

Format disk and main store for spool 

Initialize user storage and assign/free area 

Load resident routines. Initialize TWA 

Read $WORK object modules and build 
autolink segment list entries on $SOURCE 

Read records from autolink segment list on 
$SOURCE and build the cross-reference 
segment list 

Sort autolink segment list into sublists 
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Module 
Name 

#OLAP 



#OLAR 



#OLBO 

#OLER 
#OLINK 

#OLISP 

#0LI1 

#0LI2 

#OLI3 

#OLMSG 



#PRSD 



#PTFLOG 



#SA@CU 



#SA@DS 



Diagram 
08.7 

08.8 



#OLAT 08.9 

#OLBE 08.10 



08.11 

08.12 
08.14 



08.15 



08.16 



08.17 



08.13 



#OLYNX 08.3 



02.32 



Entry 
Descriptive Name Point 

Overlay design OLAP00 



Overlay segment list OLAR00 

build 

Storage map phase AT01 

Relocate, resolve START 

EXTRNs, and build 
load module phase 

Library control phase OLBO00 



Error routine ER000 

User entry phase 1 INK000 

OLE syntax specifica- None 
tion module 

User entry phase 2 INK105 

User entry phase 3 INK 105 

User entry phase 4 INK000 

Error message print OLMSGO 
phase 

Compiler entry phase YNX000 

Password security #PRSD 

PTFLOG load module None 



Display screens to 
create, add, update, 
total formats 

Display screens to 
delete entire formats or 
to manipulate SFGR 
statements directly 



Function 

Calculate storage requirements and deter- 
mine overlay structures 

Build an overlay segment list and writes 
object code to $WORK 

Print storage map and error messages 

Relocate object modules within overlays, 
resolve external references, and combine 
relocated object modules into load modules 

Catalog object and load modules in the 
library directory 

Call SYSLOG to issue messages 

Open work files, initialize the common area 
(LOMMON), and read control statements 

Define the user control statement verbs, 
keywords, and parameters 

Check control statement parameters and 
transfer data to common area (LOMMON) 

Check control statement parameters and 
copy object modules to $WORK 

Check control statement parameters and 
build a segment list entry on $SOURCE 

Print error messages 



Initialize common area (LOMMON), move 
OPTIONS data and name ESL to LOMMON 

Retrieve user's security file and make sign-on 
security check 

Contain PTF log entries for library in which 
it resides 

Display member 



Display member 



A-20 



Licensed Material— Property of IBM 



Module 
Name 

#SA@DP 



#SA@HP 



#SA@ME 



#SA@RC 



Diagram 



#SVAU 



06.20 



#SVDMP 06.24 

#SVERJ 05.2 

#SVERP 02.33 





Entry 




Descriptive Name 


Point 


Function 


Display screens to 


— 


Display member 


display formats in an 






SFGR load module 






Display screen for 


— 


Display member 


help text 







Display screens to 
create or update menu 
source statements 

Display screens to build 
a skeleton RPG display 
station program 



#SA@RP 




Display screens for user 
recovery 




#SPALC 


04.8 


Spool allocate 


#SPALC 


#SPCLO 


04.8 


Spool close 


#SPCLO 


#SPDPQ 


04.8 


Spool data and print 
queue 


#SPDPQ 


#SPINT 


04.8 


Spool intercept 


#SPINT 


#SPQMG 


04.9 


Queue manager 


#SPQMG 


#SPWRT 


04.9 


Spool writer 


#SPWRT 


#SVAT 


06.19 


New task attach 


#SVAT 



Change task's ORG 
point or detach task 



Snap dump (transient) 

EOJ purge of console 
queue for I/O message 



Error processing 
(transient) 



#SVAU 



SVDMPANT 
#SVERJ 

#SVERP 



Display member 



Display member 



Display member 

Allocate spool control blocks and disk 
extents 

Close the spool file entry 

Create the data entries and add the index 
to the print queue 

Intercept the print line 

Get entries from spool file 

Print entries from the spool file 

Allocate necessary resources to attach a 
new task to the system 

Perform necessary ATR manipulation when- 
ever a task's ORG point changes, or 
deallocate resources and detach task from 
system 

Nonterminating main storage dump 

Check console SYSLOG queue and console 
matrix for messages associated with the task 
that is being cancelled 

Allows I/O devices to issue error messages to 
the system console. Routes control for I/O 
error recovery 
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Name Diagram 

#SVINF 06.22 



#SVNRY 



#SVPRE 



#SVRD 



#SVTTC 



02.35 



02.33 



02.35 



06.32 



Descriptive Name 

Information retrieval 
(transient) 



Display station error 
recovery for device not 
ready 

Printer prepare 



Command reject ready 
routine 

Data management task 
transfer control 



Entry 
Point 

#SVINF 



#SVNRY 



SVPREMNT 



#SVRD 



SVTNTY 



Function 

Retrieve required information for non- 
privileged programs requiring access to 
fields in privileged JCBs 

Attempt recovery from operator error mode 
and system request mode command reject 
exceptions 

Set printer image, forms length and width, 
and graphic error procedure to be taken 

Retrieve command rejected records from a 
work station command reject file 

Control communication, between user 
programs and system data management 
tasks 



#SVUR 02.35 



#SVWER 02.33 



#SVWSR 02.34 



#USYX 



#WDAF 



#WDDA 



#WDDB 



#WDDC 



#WDDG 



06.21 



04.6 



04.6 



04.6 



04.6 



04.6 



Command reject 
ready transient 

Work station error 
message transient 

Display station error 
recovery 



Syntax checker 



Assign failure 
(transient) 

Work station data 
management 

Work station data 
management 

Work station data 
management 

Work station data 
management GET 
routine 



#SVUR 



#SVWER 



#SVWSR 



#USYX 



tWDAF 



#WDDA 



#WDDB 



#WDDC 



#WDDG 



Push out user task and load #SVRD 



Allow work stations to issue error messages 
to system console 

Attempt recovery from: hardware malfunc- 
tions, software errors, command reject 
exceptions, and process not ready to ready 
ready-post 

Verify the syntax for control statements 
as defined by the specification module 

Processed WSQS assign failure for work 
station data management 

Resident version of work station data 
management 

Transient version of work station data 
management 

Transient that handles miscellaneous work 
station data management functions 

Handle status inquiry, acquire terminal, get 
terminal attributes, invite terminal input, 
accept terminal input, get terminal input, 
and release terminal from program functions 
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Module 
Name 

#WDDH 



Diagram 
04.6 



#WDDK 04.6 



Descriptive Name 

Work station data 
management transient 
routines 

Work station data 
management transient 
routines 



Entry 
Point 

#WDDH 



Function 

Handle process requests for help and print 
keys, key masking functions, and issue 
message for print key request functions 



#WDDK Process requests for the print key 



#WDDO 04.6 



Work station data 
management PUT 
override routine 



#WDDO Handle put override operation 



#WDDQ 04.6 



#WDOPN 03.6 



@CSVF 06.12 



@HFPTR 06.18 



Work station data 
management GET 
routine 

Work station open 
transient 

Disk VTOC 
read/write 

History file put (read 
main storage include) 



#WDDQ Handle acquire terminal and get terminal 

attribute functions 



#WDOPN Open work station DTFs for the user 



@CSVF Disk VTOC read/write (link-edit version) 



@HFPTR Place entries into history file along with user 

ID, work station ID, job name, timestamp, 
etc. 



@HFPUT 06.18 



History file put 
(transient include) 



@HFPUT Place entries into history file along with user 

ID, work station ID, job name, timestamp, 
etc. 



@MASFN 06.2 



System find 



@MASFN Include version of the single-name-find 

routine 



@MGRET 06.14 



@MASYL 22.1 



Message retrieve load 
include 

Get source member 



@MGRET Object include version of message retrieve, 

to be included at compile time 

@MASYL Get source member from library and 

process 
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Appendix B. List of Acronyms and Abbreviations 



@ Address 

ACE Action control element 

AFA Active format 1 area 

APAR Authorized program analysis report 

AQE Allocation queue element 

ARR Address recall register 

ASCII American national standard code for 
information interchange 

ATR Address translation register 

BSC Binary synchronous communications 

CAM Compiler access method 

CIB Compiler information block 

CP Command processor 

CRT Cathode ray tube (display screen) 

CS Control storage 

CSB Communication specification block 

DTF Define the file 

EBCDIC Extended binary coded decimal interchange 
code 

ENQ Enquiry 

EOJ End of job 

ERAP Error recording analysis procedure 

ERB Error recovery block 

ERP Error recovery procedure 

ESL External symbol list table 



FDT Field descriptor table 

FQE Free queue element 

FSB File specification block 

HDR Header 

I/O Input/output 

IAR Instruction address register 

IMPL Initial microprogram load 

IOB Input/output block 

IOCH Input/output control handler 

IOS Input/output supervisor 

IPL Initial program load 

IWA Initiator work area 

JCB Job control block 

LCB Library control block 

LCS Library control sector 

LSR Local storage register 

MEB Member enqueue block 

MIC Message identification code 

MRT Multiple requesting terminal 

MS Main storage 

MVF Multivolume file 

NEP Never ending program 

OCL Operation control language 

OXRF Cross-reference table 
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PIQ Place in queue 

PMR Program mode register 

PPSA Procedure parameter save area 

PSB Printer specification block 

PSR Program status register 

PTF Program temporary fix 

QFD Queue file description 

RB Request block 

RIB Request indicator byte 

RIWA Reader interpreter work area 

RLD Relocation dictionary 

RRN Relative record number 

SCA System communication area 

SFD Spool file description 

SFGR Screen format generator routine 

SIO Start input/output 

SQB Sector queue block 

SQE Status queue element 



SRT Single requesting terminal 

SS Sector address 

SSP System support program 

SVC Supervisor call 

TCB Task control block 

TQE Timer queue element 

TUB Terminal unit block 

TWA Task work area 

UPSI User program status indicator 

VTOC Volume table of contents 

WSB Work station specification block 

WSDM Work station data management 

WSWA Work station work area 

WTG Where-to-go (table) 

XR1 Index register one 

XR2 Index register two 

ZPAM Sector data management 
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Index 



$BACK 

introduction 9-1 
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